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ABSTRACT 

A study was performed to develop a conceptual design for a "kit" freezer 
for operation onboard Shuttle missions. This study was performed for 
NASA- JSC, Crew Systems Division, under Contract NAS 9-13965 by the Boeing 
Aerospace Company in conjunction with the LTV Aerospace Corporation. The 
freezer under study features a self-contained unit which can be mounted in 
the Orbiter crew compartment and is capable of storing food at launch and 
returning with medical samples. Packaging schemes were investigated to 
provide the optimum storage capacity with a minimum weight and volume 
penalty. Several types of refrigeration systems were evaluated to select 
one which would offer the most efficient performance and lowest hazard of 
safety to the crew. Detailed performance data on the selected, Stirling 
cycle principled refrigeration unit were developed to validate the feasibility 
of its application to this freezer. Thermal analyses were performed to 
determine the adequacy of the thermal insulation to maintain the desired 
storage temperature with the design cooling capacity, and stress analyses 
were made to insure the design structure integrity could be maintained over 
the Shuttle flight regime. A proposed prototype freezer development plan 
is presented. 
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Food Storage Stirling Cycle 

Heat Rejection Thermal Insulation 
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1.0 SUMMARY 


This report documents the results of a study conducted to develop a conceptual 
"kit" freezer to be used to store food and medical samples on long duration 
Shuttle missions. The design described is a portable unit weighing 70 pounds 
which can be transported fully assembled through Orbiter side hatch and 
mounted in the crew compartment on the storage module support system. A 
storage volume of 4.6 cubic feet with a capacity of 215 pounds of packaged 
food or 128 pounds of medical samples can be maintained at an average 
temperature of -10°F. Refrigeration is provided by an air-cooled unit 
utilizing a Stirling cycle principle to develop 75 watts of cooling with a 
peak electrical power requirement of 211 watts.' 

Results of thermal analyses conducted to evaluate the steady state and 
transient storage volume temperature distributions and critical stored item 
and component temperatures are presented. Data are also given which describe 
the effects of coolant tubing spacing on wall temperature distribution. 

Drawings were prepared to provide a detailed illustration of the mechanical 
and structural concepts employed in the freezer design and to validate 
packaging schemes and dimensional tolerances. Stress analyses of critical 
structural areas were made to insure freezer structural integrity could be 
maintained during all phases of the Shuttle mission. 
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2.0 INTRODUCTION 


The desirability for a varied food diet on long duration missions, which 
cannot be achieved by rehydrated meals, is recognized. To provide facilities 
for the frozen storage of whole food items as well as medical samples on 
board the Shuttle Orbiter, Crew Systems Division was requested by the Life 
Sciences Directorate to determine the feasibility of a freezer "kit” which 
would not be permanently mounted but which could be readily installed on 
board the vehicle for selected orbital missions. The task of developing a 
conceptual design for such a freezer was assigned to the Boeing Aerospace 
Company to be integrated into the Crew Appliance Study (Contract NAS 9-13965} 
in progress at the time. In conjunction with Boeing's work, LTV Aerospace 
was assigned the responsibility to investigate potential refrigeration units 
for cooling and to provide a conceptual design compatible with the freezer 
requirements. 

The freezer volume is limited by the volume which can be passed through the 
Orbiter side hatch and by the crew equipment storage module dimensions. 
Because of this limitation, the design storage volume was minimized by 
utilizing the emptied food storage volume as medical sample storage space. 
Limitation of volume also curtailed the amount of thermal insulation which 
could be employed. Because the insulation thickness was less than optimum, 
a detailed thermal analysis was conducted to insure the design thickness, 
was adequate to maintain the required storage temperature for expected heat 
leakage and thermal perturbations with the cooling capacity available. 

Orbiter cabin air was used as the heat sink medium for the refrigeration 
unit because of the restriction of freezer location in the crew compartment 
demanded by liquid cooling. An optimization process was conducted to select 
the refrigeration concept which would provide the necessary cooling with 
minimum weight, volume, and electrical power requirements, and expose crew- 
members to the minimum hazard of safety. 
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3.0 FREEZER DESIGN REQUIREMENTS 

Primary design requirements of the freezer are that it be a portable 
appliance which can be easily installed and removed, that it provide 
storage capacity and restraint for a designated amount of food and medical 
samples, and that the storage space be maintained at a particular thermal 
environment. The design must be such that it has a minimum of interface 
requirements .with Shuttle systems and require no penetration of the 
Orbiter cabin pressure wall.' Food and medical samples must be stored 
to provide isolation from one another. And the freezer must operate in " 
the environment of the Orbiter crew compartment. The design mission 
duration is 30 days and the number of crew members is seven (7). 

3.1 FOOD STORAGE REQUIREMENTS 

Frozen foods to be stored in the freezer are common foods such as meats, 
vegetables, fruits, and ice cream which will augment the normal Shuttle 
crewman's diet of rehydrated dried foods. The food volume and weight 
requirement is derived from an average of two (2) frozen servings per day 
per crewman for an entire 30-day mission (a total of 420 servings). Each 
serving will have a packaged dimension of 4" x 4" x 1“. The total food 
weight and volume requirements derived from these specifications is 215 
pounds and four (4.0) cubic feet, respectively. 

Food will be held at -40°F prelaunch and stowed in the freezer initially 
at this temperature. The freezer will maintain food items at an average 
temperature of from 0°F to -20°F. 

3.2 MEDICAL SAMPLE STORAGE REQUIREMENTS 

Samples of each crewmember's urine and feces are to be collected during 
the entire Orbiter mission duration and stored in the freezer for return 
to earth. Urine samples are collected continuously from all crewmen and 
placed into the freezer once a day. Urine is assumed produced at a rate 
of 120 milliliters (ml) per crewman per day or for the seven (7) man crew 
a daily urine pool of 840 ml will be generated. Packaged weight for this 
pool is 2.72 pounds. ' 
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Feces samples are to be taken from each crewman for each defecation 
(assumed to occur 1.5 times/day during the 30-day mission). Of an. approxi- 
mate feces weight of. 150 grams per defecation per crewman, 25% will be 
frozen as a medical sample. Packaging weight for each sample is 100 grams. 
•These samples will be placed into the freezer as they are collected and not 
pooled. Total daily packaged sample for seven (7) crewmembers will weigh 
1.55 pounds. 


Based upon the above descriptions the maximum expected medical sample weights 
and volumes collected during a 30-day mission are: 


Urine 

Feces 


Weight (lb.) 

31.6 

46.7 


Volume (ft^) 
1.75 
0.88 


Total 


128.3 


2.63 


Weights and volumes shown include amounts for packaging. 

3.3 FREEZER OPERATING ENVIRONMENT 

The freezer is to be designed for operation within the Orbiter crew com- 
partment. Compartment atmospheric pressure is 14.7 psia at 80°F and with 
a dew point of 50°F. 

Imposed steady and dynamic accelerations are summarized in Table 3-1 (from 
Reference 1 ). • • 

Figure 3-1 illustrates the Orbiter coordinate axis system and defines the 
sign convention utilized. 
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TABLE 3-1 ORBITER STEADY AND DYNAMIC ACCELERATIONS 


longitudinal (X) Transverse (Y or Z ) 


Mission Phase — 

Steady (g) 

Dynamic 

(g) Steady (g) 

Dynamic (g) 

lift-off 

-1.70 

±4.00 

-0.10 (2) 

±1.00 

Max. Q Region 

-1.60 

±0.25 

-0.25 (2) 
±0.10 (Y) 

±0.25 

Booster Max. 
Acceleration 

-3.00 

±0.25 

-0.30 (2) 

±0.25 

SRB Staging 

-1.00 

+3.00 

-0.28 (Z) 

+ 1.00 

Orbiter Max. 
Acceleration 

-3.00 

±0.25 

-0.68(2} 

+ 0.25 

ET Separation 

- . - 

- 

0.03(2) 

- 

Orbiter AOA Separation 

- 

«• ' 

0.03 (Z) 

- 

RTLS Abort Separation 

TBD '• 

TBD 

TBD 

TBD 

Space Operations 

+0.02 

-0.08 

- 

±0.02 (Y) 
±0.04 (Z) 

- 

Entry 

1.60 

- 

2.50(2} 

- 

Flyback 

TBD 

. TBD 

TBD 

TBD 

Landing/Taxiing/ 

TBD 

TBD 

TBD 

TBD 


Braking 
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The X axis is parallel to the centerline of the payload bay, 
positive rearward* • . 

The z axis is positive upward in landing attitude. ' 

The Y completes the Tight- handed system. . 

■The standard subscript is Vo. : \ - /*.•*• 


Figure 3-1. Orbiter Coordinate System 


ORIGINAU PAGE IS 
OF POOR QUALITY 


3-4 



D2- 118569 


4.0 FREEZER VOLUME OPTIMIZATION 

Because of the critical space limitations of the Orbiter crew compartment 
and the shape constraints created by the Orbiter side hatch opening and 
potential mounting .configurations , an optimization effort was conducted to 
provide a freezer envelope which would make the most ..efficient use of the 
space available. This optimization was accomplished by first determining 
the most efficient freezer compartmentati on arrangement and then defining 
the envelope within which the freezer must be designed. 

4.1 STORAGE COMPARTMENT OPTIMIZATION 

The requirement for separation of food and medical sample items necessitates 
a storage volume which is larger than that required to just provide food 
storage. With unlimited volume accommodations the freezer volume would 
be compartmented for separate food storage and medical sample storage 
volumes. This would require a total freezer storage volume of 6.63 cubic 
feet {4 ft for food and 2.63 ft for samples). However, by utilizing the 
food storage volumes being emptied during the course of the mission as 
medical storage space, the total freezer volume requirements are much -less. 

Assuming constant food consumption and medical sample generation rates, the 
storage volume requirements versus mission time are as plotted in Figure 4-1 
Because of the required separation and because medical samples are to be 
generated and stored during the first day of the mission, the freezer must 
be launched with an empty volume. The objective of the optimization is to 
reduce this empty volume to the lowest practical value. 

Using these characteristics, five compartmentati on options (described in 
Table 4-1) were investigated. As indicated by the volume totals listed in 
the table, configuration option #5 requires the smallest storage volume of 
4.6 ft using four (4) different sized compartments. This volume can be 
reduced further by the use of even more compartments; however, the size of 
the empty compartment becomes impractical as does the number of compartments 
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TABLE 4-1 

OPTIMIZATION OF STORAGE VOLUME COMPARTMENTS 


0 NEED MINIMUM OF 4 FT 3 OF FOOD STORAGE PLUS MUST ACCOMMODATE 2.6 FT 3 OF MEDICAL SAMPLES 
0 SHOULD MINIMIZE STORAGE VOLUME. FOR MORE EFFICIENT FREEZER THERMAL OPERATION AND LESS WEIGHT 


2 COMPARTMENTS 

3 EQUAL SIZE 

4 EQUAL SIZE 

3 COMPARTMENTS. 
WITH OPTIMIZED 

4 'COMPARTMENTS 
WITH OPTIMIZED 


COMPARTMENTS 

COMPARTMENTS 

VOLUMES 

VOLUMES 

INITIALLY EMPTY MEDICAL 
SAMPLE COMPARTMENT 2.6 

VOLUME (FT 3 ) 

2.0 

1-1/3 

1.1 

0.6 

FOOD 4,0 ! 

2.0 

1-1/3 

1.6 

1.0 . 

COMPARTMENT 

2.0 

1-1/3 

2.4 

1.4 

VOLUMES (FT 3 ) 

- 

1-1/3 

. i 

1.6 

TOTAL FREEZER 



i 

( 


STORAGE VOLUME 6.6 : 

(FT 3 ) 

6.0 

5.33 

5.1 

4.6 
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Figure 4-1. Food Usage arid Medical Sample Production 


3 

The fill and empty sequence begins with the 0.6 ft empty volume being 

3 * 

filled with medical samples as the smallest food storage volume (l.O ft } 
is being emptied. These volumes are sized such that a food storage volume 
is completely empty as the sample volume is completely full; then medical 
samples are placed into the empty food storage volume. This sequencing is 
continued during the duration of the mission with the remaining three food 
storage volumes. 

4.2 FREEZER ENVELOPE DEFINITION 

Two dimensional constraints were considered in defining the freezer envelope 
(1) the crew equipment storage module dimensions and (2) the side hatch 
opening. Equipment storage modules have standard external dimensions and . 
mounting fixtures and are to be mounted in arrays on both the forward and 
aft bulkhead of the Orbiter crew compartment. Location and arrangement of 
the modifies is illustrated in Figures 4- 2a and 4-2b.‘ The modules are . 
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mounted on posts, which extend from the Orbiter floor to ceiling, using 
fasteners located at each corner of each module. As seen in Figure 4-2a, 
when in place the storage modules form the forward bulkhead of the crew 
compartment. Each module is independently mounted and can be individually 
removed; however, ‘if a module is omitted, a close out panel must be in- 
stalled to insure the composite strength of the entire storage module 
system. Modules are independently supported {do not rely on the floor 
or other modules) and are separated from ajacent modules by 3/8 inch on 
all sides. 

A drawing giving the dimensions of a single storage module is shown in 
Figure 4-3. The module is to be constructed of a fiberglass composite 
with an aluminum back plate and door. Mounting fasteners are permanently 
attached to the back plate and driven from the front of the module using an 
extension rod. The door is to be hinged in the longer frontal dimension and 
can be opened upward or downward depending upon the attitude in which the 
module is installed. The design weight of equipment which can be stored in 
the module is 70 lbs. and the expected module weight is five (5) pounds. 



Action • .A A . 

. . * 

Figure 4-3. Orbiter Storage Module Configuration 
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The volume which can be passed through the Orbiter side hatch (with the 
airlock installed) is defined by the 25" x 25" x 50" rectangular .volume; 

This maximum volume boundary is outlined in Figure 4-4 along with two 
possible equivalent module volume configurations which can fit within the 
boundary. In each' configuration four (4) equivalent module volumes are within 
the 25" x 25" x 50" volume. One configuration is one module width stacked 
four (4) modules high - (4x1) and the other is two (2) widths stacked two 
(2) modules high - (2x2). Both orientations provide the same enclosed 
volume; however, the 4x1 arrangement has the larger surface area and is 
least efficient from the standpoint of thermal leakage. Also this con- 
figuration does not provide the flexibility in compartmentizing as does 
the 2x2 configuration. Because of these reasons, the 2x2 volume con- 
figuration was chosen. 

This choice mandates that the freezer be mounted on the forward bulkhead since 
the aft bulkhead cannot accommodate side by side modules (see Figure 4-2a). 
Thus using the equivalent volume of four storage modules an enclosed volume 
of 9.2 ft^ with external dimensions of 20 x 36.375 x 21.875 is available 
for the freezer. 
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NOTE: 1. ALL DIMENSIONS IN INCHES 



Figure- 4-4 . Available Freezer Volume Arrangements 
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5.0 FREEZER REFRIGERATION SYSTEM DESCRIPTION 

The freezer refrigeration system includes the storage volume to R/U heat 
transmission system and the refrigeration unit. Since the onboard Orbiter 
liquid cooling temperatures are not low enough to provide the desired 
storage temperature, the refrigeration system must therefore utilize a 
mechanical refrigeration device. This section discusses the selection of 
the heat transmission and a trade study to determine the optimum refrigera- 
tion system. 

5.1 STORAGE VOLUME TO REFRIGERATION HEAT TRANSMISSION 

Several options are available to transfer the heat gained in the storage 
volume to the refrigeration unit (R/U) . These options can be divided into 
three basic types: (1) circulating cooling medium, (2) circulating refrigerant 

and (3) directly connected R/U. These types are illustrated schematically in 
Figure 5-1 with two identified options (A and B) for each type. Type IA 
utilizes direct conduction (through tubing) between the cooling medium and 
the storage volume structure. For type IB heat is conducted from the storage 
volume by connection to the cold plates then to the circulating cooling 
medium. 

The second type is essentially the same as type I except the function of 
the cooling medium is performed by the circulating refrigerant used -in the 
vapor cycle type of refrigeration unit. This is the type of heat trans- 
mission used in most household freezers. The two options (IIA and II B) used 
to transfer the heat to the refrigerant are the same as types I A and IB. 

The third type of heat transmission available is direct connection of the R/U 
to the storage box with the storage volume heat transferred to the R/U cold- 
plate by force convection. Of the two type III options considered, type I IIA 
would be restricted to the use of an R/u which is small and compact such as 
a thermoelectric cooler. Using this type each compartment is isolated. 

Type I I I B employs the same principle as' type I I IA however with a single R/U 
and a coirmon connective system for all storage volume compartments. 
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. CIRCULATING COOLING MEDIUM 



CIRCULATING REFRIGERANT 


TYPE II 


• DIRECT CONNECTION - 
FORCED CONVECTION ■ 
TYPE III 




A. TUBULAR DISTRIBUTION 

o COOLANT INTEGRAL TO R/U - 
NO EXTERNAL PUMP REQUIRED 



B. COLD PLATES WITH FORCED 
CONVECTION 

o COOLANT INTEGRAL TO R/U 
NO EXTERNAL PUMP REQUIRED 

0 INDIVIDUAL COMPARTMENT 
TEMPERATURE CONTROL 


A. ISOLATED COMPARTMENTS ” 

• o LIMITED TO THERMOELECTRIC 

o INDIVIDUAL COMPARTMENT 
' ' TEMPERATURE CONTROL' 

0 MULTIPLE R/U 



B. COMMON CIRCULATION 
o SINGLE R/U - 


Figure 5-1. Storage to R/U Heat Transmission Options 

i 


D2-118569 






D2-118569 


Of the six types of .heat transmission presented above, four can be initially 
eliminated for the various reasons summarised in Figure 5-2. Type IB is 
eliminated because of higher volume requirement necessary for the three 
individual connective systems (fans and finned heat exchangers) and the 
inherent higher electrical power consumption and weight. Both options in 
type II are eliminated due to the potential safety hazard presented in 
circulating the R/u refrigerant outside the sealed volume of the R/U. And 
the type II IB is eliminated since it violates the requirement for isolation 
of medical samples from food. Therefore, types IB and II IA are the systems 
best suited for storage volume to R/U heat transmission. 

5.2 REFRIGERATION SYSTEM TRADE STUDY 

A screening of potential R/U concepts was conducted by LTV Aerospace to 
identify those concepts which were applicable to the requirements of the 
Shuttle freezer performance. Refrigeration concepts considered by LTV and 
a critique of each is tabulated in Table 5-1. Of these concepts, three 
were chosen for continued evaluation: 

o Thermoelectric 
o Stirling Cycle 
o Vapor Cycle 

The working gases for the Stirling cycle and the vapor cycle are helium and 
ammonia, respectively. 

A performance description, which covered the operating range required by 
the Shuttle freezer, was derived for each of these concepts using three R/u 
heat sink approaches: (1) cabin air at 80°F, (2) water cooling at 80°F, and 

(3) water cooling at 45°F. The resulting weight, volume, and power require- 
ments are plotted versus cooling rates in Figure 5-3 for each of the three 
concepts. 

Preliminary estimates of the thermal leakage and thermal perturbation rates 
were made to determine the peak and average cooling rates to be developed 
by the R/U. Using these values the thermal loads weight and electrical 
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REASON: 

o HIGHER VOLUME 
REQUIREMENT 

o HIGHER ELECTRICAL POWER 
CONSUMPTION 

o HIGHER WEIGHT PENALTY : 

i 


REASON: 

o HIGHER VOLUME 
REQUIREMENT 

0 POTENTIAL SAFETY HAZARD 
(REFRIGERANT OUTSIDE SEALED 
HOUSING) 



REASON: 

o POTENTIAL SAFETY HAZARD 
(REFRIGERANT OUTSIDE 
SEALED HOUSING) 



REASON : 

o CONTAMINATION OF FOOD 
BY MEDICAL SAMPLES 


Figure 5-2'. Eliminated Heat Transmission Options 
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TABLE 5-1. 


REFRIGERATION 


UNIT CANDIDATES 


REFRIGERATOR 

MISSION 

SUITABILITY 

HARDWARE 

DEVELOPMENT 

FIXED 

ELEMENTS 

COP 

SAFETY 

COSTS 

COMMENTS 



STATUS 

WEIGHT 

VOLUME 


PROBLEMS 

development 

RECURRING 

, 

tA 

a. 

o 

STIRLING 

GOOD 

SOME UNITS AVAIL- 
ABLE SUITABLE FOR 
ZEFiOG USE 

GOOD 

GOOD 

L 

GOOD 

NONE 

FAIR 

MORE 
EXPENSIVE 
THAN VAPOR 
COMPRESSION 

DEVELOPMENT IS NEEDED BUT COSTS SHOULD EE 
REASONABLE 

< 

a 

Ul 

O 

UJ - 

-J s 

VM * 

QUESTIONABLE 

SOME UNITS AVAIL 
ABLE SUITABLE FOR 
ZERO G USE 

GOOD 

r 

GOOD 

FAIR 

NONE 

FAIR 

fa 5 Ft E 
EXPENSIVE 
THAN VAPOR 

COMPRESSION 

" 

CONSIDER ONLY IF VERY LONG LIFE /ANO LOW POWER 
CONSUMPTION ARE NEEDEO ' 

-n <J u. 
< X oy 

J) U a 

BRAYTON 

NOT A 

VIABLE 

CANDIDATE 




* 




LOW COP AND NEEDS DEVELOPMENT FOR THIS TEMPERATURE 

VAPOR 
CYCLE (V-CI 
REFRIGERATORS 

GOOD 

• NO DEVELOPMENT OF 

appropriate size 
EQUIPMENT FOR 
ZERO G 

« EXISTING HARDWARE 
MUCH TOO LARGE OR 
IS NOT SUITABLE 

GOOD 

' GOOD 

VERY 

GOOD 

FLUIDS 

FOR 

CYCU 

MORE 

EXPENSIVE 

THAN 

STIRLING 

MORE 

EXPENSIVE 

THAN 

T/E 

* NEEDS DEVELOPMENT OF A ZERO G COMPRESSOR 

* MAY BE ABLE TO MODIFY A STIRLING MACHINE 

ABSORPTION/ 

ADSORPTION 

REFRIGERATORS 

NOT A 

VIABLE 

CANDIDATE 








SEVERAL FACTORS MAKE THIS CHOICE UNCQMPgTlTlVS 

THERMOElECTRtCS 

IT/E) 

GOOD 

PRODUCTION UNITS 
AVAILABLE FOR 
SPACECRAFT U5E 

1 

1 

EXCELLENT 

t 

1 

POOR 

NONE 

' 

NONE 

EXCELLENT 
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power requirements of the three R/U types were derived for each mode of 
cooling- These values are listed in Table 5-2. The equivalent we.ight 
represents the weight of the R/U plus the fuel cell weight penalty. 

The combination of three R/U concepts and three heat sink options provided 
nine (9) individual R/U systems which could be. traded. The engineering data 
along with the more intangible characteristics such as reliability, safety, 
and maintenence factors- v/ere used as inputs to a computerized trade program. 

The .program developed for a crew appliance optimization study is described 
in detail in Reference 2. A summary of values used as inputs' to the trade 
program are presented in Table 5-3. 

The results of freezer concept trade are tabulated in Table 5-4. Briefly, 
the table illustrates (from left to right) each weighing factor (or criteria) 
being evaluated and the minimum and maximum of the nine values investigated 
with an arbitrary maximum number of points (PTS) assigned to each factor. 

The number of points awarded for each of the nine concepts is tabulated in 
columns labeled 1 through 9. The curve 1 for determining the points awarded 
is a straight line of value (lbs. ft , watts, etc.) versus points having a 
negative or positive slope depending upon the contribution of the factor to 
the Shuttle performance. For example, weight is a negative factor, there- 
fore thepoint assignment line will be negative; whereas, reliability is a 
positive asset and the line will be positive. 

The total points listed reflect the summation of those points determined 
for each factor for each, concept. The maximum number possible is 85. 

The final rating shown on the last line is the ratio of the point summation 
to the maximum possible points (85) shown in percent. These values are 
plotted for each concept in Figure 5-4. As seen in this plot the Stirling 
cycle system utilizing 45°F water cooling provides the highest rated concept. 
However, because of a location restriction which could be imposed on a water 
cooled system, NASA directed that preliminary design studies of the freezer 
be conducted using a cabin air cooled system. As seen in Figure 5-4, of the 
air cooled concepts the Stirling cycle rated highest. It was therefore decided 
to proceed with a freezer preliminary design utilizing the air cooled, Stirling 
cycle concept to satisfy the r/u function. 
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TABLE 5-2. THERMOELECTRIC, VAPOR COMPRESSION, AND STIRLING CONCEPT CHARACTERISTICS 


FREEZER 

ELECTRIC POWER 

ELECTRICAL ’ 

TOTAL 

THERMAL LOAD, 

LOAD 

.. . ENERGY . 

EQUIV. WT. 

‘ PEAK/AVG. . 

PEAK/AVG. 

(KW HR) 


(WATTS) 

(WATTS) 

im} 

<KS) 



THERMO- 

ELECTRIC 

: 62/28 

363/167 

120 

68.3 

CABIN 

AIR 

VAPOR 

COMPRESSION 

75/42 

' ; 70/39 

28 

•44.7 

(26.7°C) 

STIRLING 

CYCLE 

• 65/32 ■ 

: 121/59 

43 

' 42.2 



THERMO- 

ELECTRIC 

60/27 

240/108 

. 78 

51.5 

WATER ■ 
LOOP 

VAPOR 

COMPRESSION 

i 

75/42 

52/29 

21 i 

41.5 

(26.7°C) 

STIRLING . 
CYCLE 

65/32 

i 

t 

95/47 

1 

34 j 

) 

31.1 



THERMO- 

ELECTRIC 

60/27 

108/48 

35 1 

< 

34.4 

WATER 

LOOP 

VAPOR 

COMPRESSION 

75/42 

38/21 

15 i 

35.1 

(7.2°C) 

STIRLING 

CYCLE 

65/32 

80/39 

28 

i 

• l 

35.5 


NOTE: ‘ . 

1. NOMINAL FREEZER INSIDE TEMPERATURE = -23.5°C (-10°F) AND AMBIENT TEMPERATURE « 26.7°C (80°F) 
2., t CONDITIONED FOR 7 MAN-30 PAY MISSION 
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3 
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2 

35 
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( 
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appliance : 

. CONCEPT ! j .. , 

NO, CONCEPT name 

5 - THERMOELECTRIC-CABIN air COOLING 

2 T VAPOR COMPRESSION-CABIN AIR COOLING*- 

3 - STIRLING CYCLE-CABIN AIR COOLING 

4 - -THERMOELECTRIC-WATER COOLING ISO DEGo) 

5 - VAPOR compression-water cooling IBO Dtdot 

6 -—STIRLING CYCLE-WATER COOLING (80 OEG») 

7 - THERMOELECTRIC-WATER COOLING l h s DEG* I 

- — - 8 - • . VAPOR COMPRESSION-WATER COOLING (45 DeGo) 

V « STIRLING CYCLE- WATER COOLING <45 DEG«> 
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TABLE 5-4. CREW APPLIANCE 'SELECTION MATRIX FOR FREEZER 


•SELECTION MATRU «,<»«© « FREEZER {SHUTTLE}. . 


factor 

- HJN 

value 

max 
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. PTS 
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.. 2 

3 

C 0 N C 

R 
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5 

6 

, 7 

e 

7 

weight 

7b .000 
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15 

. . .00 

5.17 
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. 3.68 

5.86 

.6.66 

7 • 95 . 
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7.25 
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3 A3 » 00 

15 
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volume 

7 » 2 000 . . 

T.2or,n 

. . 10 

.... .00 
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5.06 
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5 

- .00 
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. 3.85 . 

2,18.. 

2 .80 

3.88 
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1 . ooooo 

5 

.00 

o 6 3 

1.78 

1.83 

2.51 

3,57 

1.83 

2.51 

3.62 

sapety 
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loOOno 

5 

.. .00 

... .00. 

5.00 

.00 - 

_ .00 

5.00 

.. .00 

♦ 00 

5.00 . , 

DeV COST 

35*000 

eo.ooo 

15 

a. 1 ! 1 ) 

.00 

2*81 

8. <H 

.00 

2,81 

0.8 8 

*00 
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TOTAL PT.. 

.00000 

. 65.000 

85 


_30»60 . 
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. .26,27... 

.36.88 

_*!*», 09 

9 0 « 7 8__ 

-39.51,.. 
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rating , 

.00000 

t 00 e 00 

... 500 

.. -7.73 
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. .30,71 . 
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. 51,81 . 
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NO s 


CONCEPT NAME 


1 « THEP^OELECTRIC«CAB IN AIR COOLING 

2 * VAPOR CQNPRtSS ION-CAB IN A I R COOLING • 

3 - STIRLING CYCLE-CABIN AIR COOLING 

*i THtRNOELECTRlC-'-lATER COOLING 180 DEGoI 

5 - VAPOR C0HPRES5I ON-AATER COOLING IBO OEGoJ 

6 * -STIRLING CYCLE-AATER COOLING 180 OEGO 

7 ■» therhoelectric-waten COOLING IR5 0 E G e { 

0 - VAPOR COMPRESSION -AATER COOLING IRS D£GoB 

9 “ STIRLING CYCLE-WATER COOLING (15 OEQ.} 
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Figure 5-4. Freezer Trade Results 
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5.3 REFRIGERATION UNIT DESIGN 

Once the Stirling cycle concept was chosen as the type of system to be 
used as the refrigeration unit, LTV Aerospace was assigned the responsi** 
bility to size and package the unit for the freezer and to determine, its 
performance requirements. In this section, the refrigeration unit 
characteristics will be discussed briefly. A detailed description of the 
theory and design of the Stirling cycle unit can be found in Reference 3. 

After sizing of the external freezer envelope and satisfying the storage 
volume requirements , the remaining volume was allocated to thermal insulation 
and the refrigeration unit. Calculations were made to determine the maximum 
insulation thickness possible with enough volume remaining to accommodate 
the R/u. An insulation thickness of approximately 2.0 inches was used and 
a volume with dimensions of 9" x 12“ x 20" was allocated to the R/U. Based 
on these conditions, the design thermal load to the refrigeration unit was 
75 watts, peak. This value includes heat leakage, effects introduced by 
compartment door openings and warm medical samples, and heat from the 
cooling liquid pump. Characteristics of the conceptual Stirling cycle 
refrigeration unit devised by LTV are listed in Table 5-5. 

A schematic showing the elements of the R/U and cooling loop is presented 
in Figure 5-5. The cooling liquid (Coolanol 15) is pumped continuously 
through the system once electric power is applied to the freezer. A tempera- 
ture sensor downstream of the heat exchanger at the cold head senses the 
Coolanol 15 temperature which is conditioned by a controller. The controller 
provides "ON" and "OFF" electrical switching to the Stirling unit motor 
within specified temperature limits. Cooling air is drawn from the Orbiter 
cabin into the R/U enclosure, across the hot side of the Stirling unit, 
then over the drive motor and mechanism, and finally exhausted to the cabin. 
An accumulator is located in the cooling loop to cancel the pressure effects 
of cooling fluid expansion and contraction and minor leakage. 
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TABLE 5-5 

REFRIGERATION UNIT PERFORMANCE 


o Refrigeration Cycle 
o Cool i ng Rate 

o Refri gerant 
o Power Consumption 

- Regulated 28 VDC 
(Best estimate) 

- 200 VAC 400 Hz 

3 0 Regulated AC 

' TOTAL 

o Coolanol 15 Heat Exchanger 

- Pressure Drop At 

Flowrate = 105.3 Ib/hr 
Flowrate = 210.6 Ib/hr 

o Mass Properties 

-» Weight of Unit 

- Center of Gravity 

o Li f e 

- Refrigeration Unit System 

- Maintenance Interval 
(Helium servicing, replace- 
ment of motors, etc.) 


Stirling 

75 watts from Coolanol 15 
(CZ7Q watts excluding the pump) 

Helium 


176 watts (Range 115 to 200 watts) 
30 watts (Fan) 


206 watts 


AP = 0.22 psi 
AP = 0.44 psi 


20 lbs 

12.7 in. from Front Face, 
Center of 5" x 12" plane 


8000 hours 
2000 hours 
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CONTROLLER 


0 REFRIGERATION UNIT - (R/U) CYCLE CONTROLLED "ON - OFF" 
BY COOLANT TEMPERATURE LIMITS 


Figure 5-5, Freezer Refrigeration System 
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6.0 MECHANICAL DESIGN AMD STRUCTURAL ANALYSIS 

The function of the freezer structure is to provide support and restraint 
to stored items and to the R/U. In addition, it also provides thermal 
insulation of the stored volume from the ambient environment and acts as 
a thermal conductor to the circulating coolant; Because the freezer is 
to use the crew equipment storage module mounting system, the freezer 
structural configuration was heavily influenced by the module design. A 
stress analysis was made primarily to investigate those areas of the 
structure which by inspection are subjected to the most detrimental stress 
loads. 

Figure 6-1 is a cutaway illustration identifying the basic mechanical 
design features of the freezer concept. Each of the components shown 
are discussed in the following paragraphs. 

6.1 FREEZER MECHANICAL DESIGN FEATURES 

The freezer design consists of a number of individual elements of which 
some serve functions other than structural. Details of the freezer design 
are illustrated in the two drawings shown in Figures 6-2 and 6-3. The 
structure is basically two boxes, one inside the other and thermally 
insulated from one another. Fasteners which attach the freezer to the . 
storage module mounts are located on the outer box. The outer box is 
effectively suspended within the inner box by foam-in-place polystyrene. 
Connection between the inner and outer boxes is made at the front of the 
freezer by a one-piece framework on which the door seals and hinges are 
mounted. Minor attachments between the two boxes are made in back of 
the inner box. The refrigeration unit is located on a pallet which 
attaches to the outer box. In the discussion of the basic freezer 
structural elements made in the following paragraphs certain dash numbers, 
used to refer to parts of freezer correspond to those identified in the 
drawings of Figures 6-2 and 6-3. 
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6.1.3 (Continued) 

and to provide a force to maintain both doors in the opened position once 
unlatched. Both doors have latching systems. The inner door latches will 
be designed with sufficient strength to restrain the stored contents 
against predicted acceleration loads. 

6.1.4 Thermal Insulation 

The thermal insulation (-15) provides a thermal barrier between the ambient 
environment and the storage volume and distributes structural loads from the 
inner to the outer box. Polystyrene foam is insulation material to be used 
and will be foamed in place between the inner and outer box at a thickness 
of approximately two (2) inches on all sides. 

6.1.5 Mounting Fixtures 

Fasteners used to attach the freezer to the mounting posts are identical 
to those used on the storage module. Since the freezer volume will be 
equivalent to four storage modules each using four mounting fasteners s 
16 potential fasteners are available for use on the freezer. However, 
analysis of the load carrying capacity of the fastener versus the expected 
loads indicate that only 12 fasteners around the freezer perimeter 
provide adequate strength. A drawing of the proposed fasteners and 
fastener pattern is shown in Figure 6-4. Fasteners, mounted onto the back 
frame of the outer box, are sleevebolts which are retractable and self- 
retained. They are to be driven from the front of the freezer onto a 
recessed stud, permanently fixed to the storage module mounting post. 

6.1.6 R/U Pallet 

Freezer volume allocated to the R/U was determined from preliminary 
estimates of the R/U volume requirements. However, as the R/U design 
progressed, it became obvious that this allocated volume was marginal,' 
and that if the volume was to be enclosed by the freezer structural 
framework installation, of the R/U would be impossible. Therefore, the 
decision was made to mount the R/U to a pallet which would in turn be 
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(a) Fastener Design 



(b) Fastener Pattern 


Figure 6-4. Proposed Freezer Fastener and Fastener Pattern 
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6.1.6 (Continued) 

attached to the freezer structure. When in place, the pallet forms a 
part of the freezer bottom and side. 

The pallet is attached to the freezer outer box by means of two rows of 
screws which are joined to nut plates mounted on the box. These rows are 
located along the side and bottom of the outer box. 

Items mounted on the pallet are the Stirling cycle unit, interfacing heat 
exchanger between the Stirling cold head and circulating coolant, and the 
R/U cooling fan. Thermal insulation necessary to the cold areas of the 
R/U are attached to pallet. The front face of the pallet has an access 
panel to facilitate installation. 

Coolant pump and reservoir are mounted onto the inner box, recessed into 
the thermal insulation. The R/U pallet with thermal insulation is 
attached over the pump and reservoir and coolant loop connections are 
made through the access panel . 
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6.2 STRUCTURAL STRESS ANALYSIS 

An analysis was conducted to determine if the proposed design is adequate 
to maintain the proper structural rigidity and integrity during the 
various phases of the Shuttle flight envelope. The primary items investi- 
gated were (1) mounting fastener loads, (2) thermal insulation deformation 
and (3) inner box restraint. The assumptions used in these analyses and * 
calculations .performed are included in Appendix A of this document. The 
accelerations assumed in all calculations are summarized in Table 6-1. 


TABLE 6-1 

MAXIMUM COMBINED ACCELERATIONS 


I ACCELE 

RATION 

CONDITION 

+g v 

/\ 

-9x 

+ % 

df* 

i . 

+ 3 Z 

-9z 

1 (+q 
v y x ^ 
max). 

2.30 

i 

i 

i 

- 

1.00 

-1.00 

0.90 

-1.10 

2 (-g x ) 

max 

t 

i 

t 

i 

i 

-5.70 

1.00 

-1.00 

0.90 

-1.10 

3 ^ +9 y ^ 

J max 

2.30 

-5.70 

1.00 


0.90 

-1.10 

4(-g y ) 

■'max 

2.30 

-5.70 


-1.00 

0.90 

-1.10 

5 (+g 2 ) 

max 

1.60 

i 

i 

i 

i 

- 


2.50 


6 (‘ s z * 
max 

2.00 

-4.00 

1.00 

-1.00 


-1.28 


•NOTE: Reverse signs of accelerations for inertia load factors 
acting on freezer structure. 


Combination accelerations were utilized to define the six conditions 
(maximum acceleration for each directional possibility) shown. 
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6.2 (Continued) 

Assumptions were that strength and number of all rivets, bolts, and screw 
fasteners used in the freezer construction would be adequate to provide 
the necessary structural integrity. All imposed loads were increased to 
provide a factor of safety of 1,5. 

6.2.1 Mounting Fastener Loads 

As discussed in Paragraph 6,1.5, the same mounting fasteners used to 
secure the crew equipment storage modules are used in the freezer design. 
Each fastener has the minimum load carrying capacity of 2500 lbs. tensile 
strength and 2800 lbs. single shear strength. 'Load computations were 
made using 12 of 16 possible fasteners for securing the freezer to the 
mounting posts. These fasteners are located around the perimeter of the 
freezer and receive tension loads from direct axial forces as well as 
those from resulting moments. Shear loads were computed from the resultant 
of two coincidental loads when necessary. The results of the fastener 
load analyses are summarized in the chart shown in Table 6-2. 


TABLE 6-2 

SUMMARY— MAXIMUM ULTIMATE BOLT LOADS 



6-10 







D2-118569 


The loads shown in the table pair the corresponding tension load (P-j.) with 

maximum shear load (P_ ) calculated and similarly the shear load (Pc) 

b MAX 

with the maximum tension load (P T ). The resulting fastener loads are 

l MAX 

well within the strength limits of the fasteners. 

6.2.2 Thermal Insulation Deformation 

Although the thermal insulation is designed to act as a load bearing part 
of the freezer structure, the support structure around the insulation must 
demonstrate sufficient strength to prevent excessive compression of the 
insulation. Compression of the insulation equal to one-tenth of the thick- 
ness will result in a permanent deformation causing degradation of the 
thermal properties. 

Investigation of center compartment lower panel deflection (worst case) 
revealed that the insulation would be deformed beyond its yield point using 
the inner and outer box without stiffeners required to stiffen the inner 
box sufficiently. Assuming two "Z" stiffeners attached to the lower panel 
of the inner box in the Y-direction of the X-Y plane, the estimated maximum 
deflection is 0.05 inch, which is well within the 0.10 inch limit. The 
design "Z" stiffeners would be of 0.05 inch aluminum with 0.5 inch height 
and 0.625 inch flanges. These stiffeners are correspondingly attached to 
the inner box top panel and both side panels. 

6.2.3 Inner and Outer Box Aft Attachment Fixtures 

Initial design of the freezer structure employed only the front frame as 
the structural connection between the inner and outer boxes with the thermal 
insulation providing the major inner box support for iZ, ±Y, and -X 
directional loads. This was done to provide maximum thermal isolation of 
the inner box from the outer box. However, analysis of this design indicated 
that torsional and bending loads would result in excessive deflections of 
the front frame. Therefore, design revisions were made to include attach- 
ment points for the inner box to the back frame. 
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6.2.3 (Continued) 

For the purpose of analysis the attachment fixtures are assumed to be bands 
of 0.01 inch thick, 1.0 inch wide stainless steel which span between the 
back frame and inner box at each corner of the box and at the junction of 
the box partitions and top and bottom panels. Other materials could be 
used for these bands; however, stainless steel was chosen for its lower 
thermal conductance properties. 

Analyses were made of the buckling and bending characteristics of the bands 

+ 4 - 

under -X, -Y, and -Z loads. These evaluations made under extremely conserva- 
tive assumptions indicate the minimum margin of safety is approximately 3. ■ 
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7.0 FREEZER THERMAL ANALYSIS AND EVALUATION 

The SINDA (Systems Improved Numerical Differencing Analyzer) thermal 
analyzer computer program was used to select and to verify the thermal 
design of the freezer, SINDA (Reference 4) is a highly developed and 
flexible computer program designed basically for solving generalized 
lumped parameter systems governed by diffusion equations (e.g., thermal 
systems, electrical resistor-capacitor networks, gaseous diffusion 
problems, non-viscous fluid flow, etc.). The general application of the 
SINDA program has been oriented primarily toward nodal -network type 
thermal problems involving conduction, convection and radiation. 

Two thermal models were constructed to analyze the freezer. The first 
was a simplified two-dimensional representation of a single slice through 
the freezer. Its purpose was to examine the 'effect of spacing between 
the coolant tubing. The second model was a detailed three-dimensional 
nodal network of the entire freezer, with capability for varying and 
analyzing the effects of coolant tubing routing, medical sample insertion, 
refrigeration unit size and control scheme, structural thermophysical 
properties, and other pertinent design details. These models, with their 
results for the Shuttle freezer thermal performance, are presented in the 
following sections. 

7.1 COOLANT DISTRIBUTION ANALYSIS 

A two-dimensional model of a single slice through the freezer was made to 
examine the effect of spacing between the coolant tubing. This model, 
described in Figure 7-1, neglects corner and end effects and assumes a 
semi-infinite plane with embedded coolant tubes spaced at regular intervals 
Due to symmetry, it was necessary to model only one-half a section between 
two cooling tubes, as shown in Figure 7-l(a). A listing of the SINDA 
computer model input is given in Appendix B. A -10°F coolant temperature 
was held constant in the tubing, with 80°F ambient conditions. Steady 
state runs were made assuming a distance between coolant tubes from 2 to 
12. inches. 
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Figure 7-1. Freezer Slice Model Description- 
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7.1 (Continued) 

The effect of tubing spacing on the food temperatures is shown in 
Figure 7-2(a) for a food thermal conductivity of 1.0 Btu/hr-ft-°F. An 
air/packaging gap was included in the model between the food and wall. 

The effective thermal conductivity of this gap was varied between 1.0 
(equal to that for the food) and 0.0 to determine the maximum and minimum 
effect of this variable. The results in Figure 7-2(b) show a maximum - f 
food temperature variation between coolant tubes of 1.0°F with an eight (8) 
inch tubing spacing. After considering other temperature gradients 
throughout the freezer due to coolant warmup, edge effects, attach points, 
internal conductive aluminum spacer walls, etc., this spacing was chosen 
as a general guideline in initially routing the coolant tubing. Note 
that this analysis isolates only the effect of coolant tubing spacing. 

Other important effects, some of which are mentioned above, will exert a 
significant effect on the results, and were accounted for in the more 
detailed analysis discussed in the following paragraph. 

7.2 EFFECTS OF THERMAL LEAKAGE AND THERMAL PERTURBATIONS 

A detailed three-dimensional model of the entire freezer was developed, 
as described in Figure 7-3,. to aid in selection of materials, configuration, 
and mating of the storage compartment with the refrigeration unit, and to 
provide verification of the final thermal design. The model comprises 
169 nodes and 656 conductors,, and was constructed with generalized inputs 
to accommodate continuing design changes. The node/conductor network is 
shown in Figures 7-3 and 7-4. The model accounts for all corner and edge 
effects, structural hard attach points, control scheme, and effects of 
door opening and medical sample insertion. A listing of this SINDA com- 
puter model input is given in Appendix B. 

The steady state solution for a constant -10°F coolant inlet temperature 
in an 80°F ambient environment is shown in Figure 7-5. The relative 
positions of the output temperatures in the figure correspond to the 
frontal view of the nodal network- shown in Figure 7-4. Thus, the tempera- 
ture at any node may be readily located by visual inspection without 
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Figure 7-5. Freezer Steady State Thermal Solution 
for -10°F Coolant Inlet Temperature 
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7.2 (Continued) 

consulting a specific node number. The temperatures throughout the entire 
\ * 

freezer are seen to vary between -6.6°F and.-10.0°F. 

Transient results from the model are shorn in Figures 7-6 and 7-7 for an 
80°F ambient .temperature. The input conditions for this case were selected 
as representing worst-case design criteria. The maximum effect of five 
door openings, beginning at 3 hours time, is seen in Figure 7-6. This 

effect includes the sensible and latent heat from an assumed 0.5 cubic 

feet of air exchange with ambient surroundings for each door opening. The 
temperature effect from this is minimal, and the total energy input is 
negligible. At a time of 6 hours, a combined one-day’s sample of urine 
and feces for seven men was inserted directly adjacent to cooling tubes 
at the rear cold wall of the freezer. This sample was initially at 80°F 
and contained a total of 2.15 pounds of water. .The sample cool-down 
profile is shown in Figure 7-7 (for a urine freezing temperature of 30°F), 
and the effect on adjacent samples and the freezer coolant return tempera- 
ture is shown in Figure 7-6. A representative temperature "snapshot" 
throughout the freezer at a time of 7 hours is shown' in Figure 7-8. These 
results verify the freezer to be of adequate thermal design to maintain 
satisfactory temperatures while providing acceptable medical sample 
cool-down. 

In Figures 7-9 and 7-10 are shown the results of a baseline case for 
comparison with no medical sample insertion or door openings. Again, 
ambient temperature was assumed 80°F. The refrigeration unit duty cycle 
(fraction of the total time it is turned on) for this case was found to 
be 69 percent. Another run with identical conditions except for 70° F 
ambient temperature resulted in a steady state duty cycle of 62 percent. 
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Figure 7-7. Transient Medical Sample Temperature and 

Coolant Heat Removal under "Worst-Case" Conditions 
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Figure 7-8. Freezer Thermal Solution at Time 7 Hours 
During "Worst- Case" Run 
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Figure 7-9. Transient Freezer Thermal Response With 

No Door Opening or Medical Sample Insertion 
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Figure 7-10. Freezer Transient Coolant Heat Removal 

With No Door Openings or Medical Sample Insertion 
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8.0 FREEZER DEVELOPMENT PLAN 


Results of this study have demonstrated the conceptual feasibility of a 
portable or "kit" freezer for Shuttle operations. However, certain assump- 
tions and computations used in determining the freezer thermal characteristics, 
structural design, refrigeration unit performance figures, and packaging 
schemes must be validated through a development and testing effort. A plan 
to provide the basis for the development of a freezer which will verify the 
acceptability of the proposed freezer design is outlined in this section. 

A schedule of Tasks related to the development of the freezer is shown in 
Figure 8-1. 

8.1 PREPROTOTYPE FREEZER STORAGE BOX 

The limited volume available for the freezer, due to the dimensional constraints 
of side hatch and storage module configuration, demand that the volumes 
allocated to storage, thermal insulation, and refrigeration system be vali- 
dated in the initial stages of freezer development. Although the refrigeration 
unit has the highest level of technological development and will require the 
longest development lead time, it is recommended that the thermal character- 
istics of the storage box be investigated prior to the R/U development in 
order to determine the adequacy of the thermal insulation thickness. This 
phase of the freezer development will determine if the storage capacity re- 
quirements can be met and if the predicted R/U cooling capacity is sufficient. 
These tests can be accomplished with a full scale model of the storage box 
which accurately represents all components of the freezer except the refrig- 
eration unit. An ambient sea level environment with elevated temperatures 
can be easily simulated. The refrigeration unit can be simulated by circulating 
the coolant through a dry ice bath with coolant inlet temperature to the 
storage box being varied using a bypassing system. Measurements of coolant 
temperature rise and flowrate will provide a direct calculation of the 
overall heat load to the cooling system. Coolant loop pressure drop measure- 
ments will be made to aid in sizing the coolant pump. Results from these 
tests will also be used to validate the accuracy of the existing mathematical 
thermal .model . This model will be a valuable tool for investigating revised 
freezer configurations should they become necessary. 
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8.1 (Continued) 

•Assuming the thermal load to the refri gerati on unit is less than predicted, 
then the possibility of a R/U with a smaller cooling capacity (and conse- 
quently smaller volume requirements) can be utilized. This surplus volume 
can be devoted to additional storage or thermal insulation. However, if 
the thermal load is greater than predicted, then more thermal insulation 
must be added, at the expense of storage volume, or the refrigeration unit 
must be sized upward. This may require a reduction in insulation or storage 
space to accommodate the larger R/U. Once the peak cooling requirements 
have been established, then the refrigeration unit preprototype design can 
commence . 

8.2 PREPROTOTYPE REFRIGERATION UNIT 

The refrigeration unit preprototype will be an accurate representation of 
the conceptual design in all respects except the drive. mechanism. The 
drive mechanism proposed has- been utilized on other Stirling refrigeration 
systems, and it would not be necessary to demonstrate its feasibility at 
this point in the development. A bench test setup using an external drive 
system would be employed to investigate the major operating parameters of 
the Stirling system or head of the unit. Cycle efficiency, electrical power 
requirements, cyclic frequency effects, and cooling requirements will be 
established. These tests will also aid in determining the R/U volume and 
weight requirements. However, the R/U mechanism (except the drive) will 
be fabricated to the conceptual design specification for possible use in 
prototype testing in the event the preprototype tests demonstrate its 
performance is satisfactory. The head will be designed to adapt to the 
more sophisticated drive mechanism to be used on the prototype. 

8.3 REFRIGERATION UNIT DRIVE MECHANISM 

The R/U drive mechanism includes the electric motor and a gear* mechanism 
which imparts a linear driving force to the piston rod. This concept allows" 
the use of dry lubricants between the piston and cylinders and has had 
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-8.3 (Continued) 

previous space hardware application on Stirling cooler systems. Once the 
refrigeration unit has been sized, the design of the drive mechanism can 
be initiated. After the drive is fabricated it will be mated with the 
R/U head, and the total unit bench tested to insure compatibility. 

8.4 PROTOTYPE FREEZER 

A prototype freezer will be tested to investigate the performance of the 
storage box and refrigeration unit combination. The prototype will utilize 
the preprototype storage box and refrigeration unit unless the preprototype' 
testing and analysis indicates that these units must be radically resized. 
This is not anticipated with the storage box since some allowance for an 
oversized R/U can be accommodated in the box insulation in the area aboye 
the pallet. 

Testing of the prototype freezer will be conducted to assess the performance 
of the complete refrigeration system. Items to be investigated are: 

o R/U component life 
o R/U cooling system efficiency 
o Nominal and off-nominal operation 
o Temperature control system 
o Storage box temperature profiles 
o Optimum cooling liquid flowrate 

o Ice build-up inside storage volume and on stored items 

Since a considerable amount of zero "g" operating experience has been 
accumulated on the Stirling principled coolers, zero "g" testing will not 
be necessary. A flight article can be fabricated from the information 
gained from prototype testing. 


8-4 



'Z 3Wd~ 



D2-118569 




D2-118569 


9.0 CONCLUSIONS AND RECOMMENDATIONS 

This study has demonstrated the conceptual feasibility of a portable "kit" 
freezer which will -satisfy the stated food and medical sample storage 
requirements for Shuttle operation. The conceptual freezer can be passed 
through the Orbiter side hatch fully assembled and can be mounted on 
existing storage module supports, located in the Orbiter crew compartment, 
using standardized fasteners and tools. Total design launch weight of the 
-freezer and contents of 285 pounds is within the maximum weight restraint 
capability of the storage module supports. Conventional construction 
techniques are employed in the conceptual freezer which will require short' 
lead times and economy in fabrication. 

The self-contained refrigeration unit requiring 206 watts peak electrical 
power will provide a safe and efficient cooling system with a coefficient 
of performance (C.O.P.) of 0.355. The steady state duty cycle is approxi- 
mately 69 % with an '80°F ambient cabin temperature. 

Thermal analyses of the freezer have shown the cooling capacity of the 
refrigeration unit is sufficient to maintain the storage box structure and 
contents at 0.0°F or below (Figure 7-6) after medical sample insertions 
and door openings. As shown in Figure 7-7, a warm medical sample can be 
cooled from 80°F to 30°F in approximately 3 hours. The steady state heat 
leakage rate of the storage box is 46.4 watts with an ambient temperature 
of 80°F and an average storage temperature of -10°F. 

Limitation of volume allocated to the freezer results in a thermal insulation 
thickness which is less than optimum. This also impacts the sizing of the 
refrigeration unit since it must provide rejection of the additional thermal 
load at the expense of weight and electrical penalties. Because of the 
criticality of the. freezer insulation properties, it is recommended that 
the thermal characteristics of the freezer box be carefully validated early 
in the freezer development program. If tests reveal the thermal load to 
the refrigeration system is greater than predicted, then two options are 
available: 
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9.0 (Continued) 

(1) Increase the insulation thickness at the expense of storage 
capacity. 

(2) Increase the cooling capacity of the refrigeration unit with 
the inherent penalty of weight and electrical power increases. ■ 

Design, fabrication,, and testing of the freezer can be accomplished with a 
relatively small investment and will provide valuable information to firm 
up the freezer configuration. These tests will make a definite establish- 
ment of the volume which can be allocated to the refrigeration unit, and the 
R/U volume constraints must be defined with reasonable certainty before a 
cost-effective R/U development program can be initiated. 
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APPENDIX A 

STRUCTURAL STRESS ANALYSES 
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SCO 3THERMAL LPCS 

BCD 3 CASE I 

BCD 8 SHUTTLE FREEZER - SINGLE s LlCE MODEL 
END 



BCD 

3N0DE 

- 1 t " l o 

DATA 
* , 1 • 

$ 



" 

GTn“ 

2i8»li 

- I 0 • » 

1 « 

s 



GEN 

11,9,1 

,-10. 

1 » 

s 



GXTT 

21 iV , 1 

» - 1 0 . 

1 • 

5 



GEN 

31,9,1 

, — 1 o . 

1 • 

£ 



GLN 

41,9,1 

,-10. 

1 • 

5 



gen 

51,9,1 

,-'10. 

1 • 

S 



GEN _ 

61,9,1 

,-10. 

l « 

$ 



gen 

71,9,1 

,-io. 

1 . 

$ 



GE N 

8 1 »9 » 1 

,-l o. 

1 ® 

S 




-99,80 

a , 1 « 

s 




end 

BCD 3CONDUCTGR DATA 


“ ST7T 
GEn 

1,8,0,-12,10,11,10 
2, 8, 0,1, 1,2,1, 0 « 

, 0 
S 

■ 5 

J 

GTTT 

3,8,0,11,10,12,10, 

0 . 

s 


gen 

4,8,0,12,10,13,10. 

0. 

s 


~ ' GEN 

5,8,0,13,10,14,10, 

0. 

s 


gen 

6,8,0,14,10, 1,5 ,10, 

0. 

5 


G'ETT 

7 ,8 ,0 , i'b , 1C , 1 6 Tl 0 , 

0. 

5 


gen 

8,6,0,16,10,17,10, 

0. 

■ s 


GETT 

9,8,0,17, 10,18,10, 

0. 

s 


GEn 

10,8,0, 

,18,10,19,10 

, 0* S 


GETT 

1 r , 9 , 0 , 

*1,1,11,1, 0 

O S 



gen 

12,9,0, 

•11,1,21,1, 

0. 

s 


Gt N 

13,9,0, 

(21,, 1,31,1, 

0. 

5 


gen 

14,9,0, 

(31,1,41,1, 

0, 

$ 


GFR - 

15,9,0, 

• 41 il ,51 ,1 , 

0. 

$ 


gen 

16,9,0, 

i 5 1 , 1 , 6 1 , 1 , 

Oo 

$ 


“ GTfT 

17,9,0, 

(61,1,71,1, 

0. 

s 


GEn 

18,9,0, 

i 7 1 , 1 , 8 1 » 1 , 

0. 

s 


GEN 

19,8,0, 

•-18,10,19,10, 

0. s 


gen 

20,8,0: 

•2,1,99,0, 0 

0 S 



GEN 

21,9,0; 

(-71,1,81,1, 

Oo 

s 



2 2', - 8,9, 0. $ 





end 
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LISTING OF SINDA tWO-DIMENSIONAL FREEZER SLICE MODEL 


This appendix contains a complete listing of the SINDA two-dimensional 
freezer "slice" model described in Section 7.1. This report is not intended 
to serve as a users manual for the model. However, the listing, with 
attached brief description and the nodal network identification in Figure 7-1, 
should allow one proficient with the SINDA program to modify and use the 
model to perform further freezer thermal analyses. 

The primary Fortran symbols used in the model listing are defined in Table B-l. 
The SINDA long pseudo-compute sequence is used to obtain steady state solu- 
tions only. Various model parameters are input and defined in the CONSTANTS 
data block. The actual values for the thermal conductors are all computed 
in the EXECUTION block. These values are computed in terms of variable 
geometry and material thermophysical properties to allow easy accommodation 
for varying freezer designs. The VARIABLES I and OUTPUT CALLS blocks are 
used only for periodic output of selected parameters, and the VARIABLES II 
block is not used. 


B-l 
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DELT 

DX,DY,DZ 

-G 

GPACK 

LOOPCT 

NCASE 

QCIN 

QCL 

T 


TABLE B-l 

SYMBOLS USED IN SINDA 
. TWO-DIMENSIONAL FREEZER SLICE MODEL 

Maximum temperature change along inner wall between cooling 
tubes {°F) 

Dimensions of nodes in slice model (ft) 

-SINDA array of conductor values (Btu/hr °F) - . . 

Thermal conductor through packaging layer, from food to wall 
(Btu/hr °F) 

System iteration counter 

Number of the current case being simulated 

Heat conducted into wall through insulation (Btu/hr) 

Heat conducted into coolant tube per foot (Btu/hr/ ft) 

SINDA array of nodal temperatures (°F) 
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BCD 3C0NSTANTS data 

D RL XC A g » Q005 

ARLXCA=.0005 

NL00P = 700 ' 

DAMPD® 1 .0 

D AM P A « 1 iQ 

2 = 1 2 o S INCHES BETWEEN TUBES - 

3 = 9, S INCHES HEIGHT OF FO^D S^ICE 

q=lo _S INCHES THICKNESS OF SLICE 

5 = 2 V S INSULATION THICKNESS (IN,) ' - 

6=«oi3 $ insulation conductivity ( btu/hr-ft~f ) 

7 g o 03 2 S METAL WALL THICKNESS ( I N-e } 

8*1 16. S METAL WALL CONDUCTIVITY IBTU/HR-FT-F) 
9=-10, S COOLANT BOUNDARY TEMP Ip) 

11=1, 5 FOOD THERMAL COND, I BTU/HR-FT~F ) 

12=1, S PACKING THERMAL CONDUCTIVITY ( BTU/HR-FT-F I 


END 

BCD 3ARRAY DATA 


end 

BCD 3EXECUTI0M 

F 


dimension xtaoGO) 


EL_ 


NDIM=8000 


F 


N T H = 0 





DATA NCA5E /O/ 


F 

10 

NCASE=NCASE+1 


t±_ 


DX = XK(2)/8»/12, / 2 » 


M 


0Y=(XK13)-®2)/8o/12, 


a_ 


DZ=XK(4)/12. 


M 


Tt l ) = XK { 9 > 


M 


6 < n=XK m ) *0 y*D2/Dx 


M 


DUM=XK(8)#XK(7)»DZ/DX/I2, 


M 


DUM2=XK(6) ».2/I2,«DZ/DX 


H 


^ « 2 ) =DUM + DUM2+ XK ( I 2 ) * , 2/ I 2 , «DZ/D* 


E 


DO 20 N=3 , 1 0 


F 

20 

6 l N } =6 ( 1 ) 


. 


G( 12 )=XK (11) *DX*DZ/DY 


M 









F 


uu 3 U N = 13»18 


F 

30 

G.( N J =g ( I 2 ) 


F 


1 9 ) = G { 10) ~ 


M 


0(20)=XK(6)oDXeDZ/XKI5)*JZ* 


F 


G ( 2 1 ) «g ( 1 8 ) 


f__ 


61221=0(2) 

— - - 


PRECEDING PAGE BLANK. NOT FIL MED 
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—s 


— — -- — 





’ ‘ * ‘ ■ _ 



call gprint • * - - 



' 

F 


IF (NcaSE.EC»1) call PcTdHP 
«VRiTE (6,5) IXK(N) »N=J ,10) 




F 

F. 

5 

FORMAT (///IX, 5G J 2 « 5/// ) 
WRITE (6. H5> 



----- — * — 

F 

F 

H5 

FORMAT ( 1H1 , i N QCOOL DTMaX 

■> T(a) T ( 9 ) T ( 3 I ) T ( 3 9 ) 

DRlXCC 
T ( 6 1 ) 

QCIN 
T ( 69) 

T<2) T { 5 ) 

T ( 8 1 ) T ( 85 1 

■ ■ F 


* T (89 ) * // ) 




F 


call cimdsl 

' 

— 

* * 

F 

M 

62 

GO To ( 62 >63 ,99 ) , NCASE 

X«(2)=9, 




F 

M 

63 

00 TO 10 
X K ( 2 ) =6 » 




F 

M 

64 

GO TO 10 
XK < 2 ) =3 • 




F 

F 

99 

60 TO 10 
CONTINUE 




M 

M 


IF ( XK ( l 2 ) » LT » « 2 ) GO TO 199 

XK ( 12 ) »0 « 




M 

F.. 


XK ( 2 ) 3 1 2 » 
NCASE=0 




F 

F. 

i 99 

GO TO IQ 
CONTINUE 




EMU 

BCD 3VARIABLES 1 

F 

F 


N = LOOPC T/5 

IF ' ( N o 5 « N E • LOOPCT) GO TO 999 




M 

M 


QCL»(2,*G{2)*(T(2)-Til } )+G< 1 i ) « tT( U )-T t 1 ) ) 
o /XK ( H ) « 1 2 • 

+G ( 20) « 

(T{99)-T { 1 ) ) ) 

M 

F. 


OELT^T (9 )-T 1 H 
OC 1 N-0 e 



• 

F 

F 

5 

00 5 N= 1 , 8 
QCIN=QCIN+T(N) 


- 



M 

M 


Q C I N = G ( 2 0 ) * (9»*Ti99 J-QCIN-T ( 1 ) ) 
WRITE (6,10) LOOPcT , QCL ,DELT ,DRLXCC 

« Q C r N T ( 2 ) , T { 5 ) ,T(8) P T ( 9 ) , 

H 

_ F. 

10 

« T l 3 1 ) * T C 3 9 ) ,T(61 ) ,T(69) , T ( 8 1) , T t 85 ) , T ( 89 ) 

format ( ix, 13 , fSo3, fs,*), f 9.6» F8e3» 1IF8.31 


F 

999 

continue 

end 




B<-D 3VARIABLES 2 

end 

F 


B c D 3 OUTPUT CALLS 
WRITE (6, HO) 




F 

F 

30 

WHTtfc. (6 i'50T T C a 1 J , (T(N) ,N=1 ,80) , 

FORMAT (IX, 9 F 1 2 • 3 ) 

T ( 8 2 ) 


• 

F 

HU 

l-UKHAf (/// ) 

en-d 
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LISTING OF SINDA THREE-DIMENSIONAL FREEZER MODEL 

This appendix contains a complete numbered listing of the SINDA three- 
dimensional freezer model. This report is not intended to serve as a 
users manual for the model. However, the listing, with attached brief 
description and the nodal network identification in Figures 7-3 and 7-4, 
.should allow one proficient with the SINDA program to modify and use the 
model to perform further freezer thermal analyses. 

The primary Fortran symbols used in the model listing are defined in ■ "* - — 
Table C-l. The SINDA long pseudo-compute sequence is used to obtain steady 
state and transient solutions for the freezerT Freezer nodes are defined 
in statement numbers 7 through 14, and conductors in numbers 15 through 95. 
Various model parameters are input and described in the CONSTANTS data 
block, statement numbers 107 through 131. The actual values for the thermal 
capacitors and conductors are all computed in the EXECUTION block, statement 
numbers 137 through 781, using standard Fortran V language. These values 
are all computed in terms of variable freezer geometry and material thermo- 
physical properties to allow easy accommodation for varying freezer designs. 
Comment cards are included to allow easy identification of the specific 
variables being computed in each section of the program. The EXECUTION 
program is divided logically into major functional blocks to facilitate 
changes of portions of the model. These blocks are identified as follows: 


Line Numbers 

Function 

146-170 

Define overall freezer size and internal dimensions 

175-228 

Evaluate thermal conductors' through food and medi'cal 
samples only 

232-260 

Thermal resistance added to conductors for packaging 
at internal spacer walls 

265-321 

Thermal resistance added to conductors for packaging at 
inner structural walls 

325-462 

Thermal conductors modified for conduction through insulation, 
packaging and walls 

467-582 

Thermal conductors through insulation to boundary walls 
evaluated 

584-590’ - 

Thermal conductors through hard-attach points added 


C-l 
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Appendix C (Continued) 

Function 

Coolant flow conductors evaluated 

Food/medical sample thermal capacitance evaluated 

Thermal capacitance of walls, packaging and insulation 
added 

Parametric conditions for sequenced runs set up 

The VARIABLES I block is used only to print out various parameters of 
interest at selected intervals during a run. In VARIABLES. II the following 
functions are performed: 

o Include effect of fresh medical sample insertion 
o Include door opening effect 
o Operate cooling unit thermostat control 
o Store selected data for final plotting, and make plots 

The logic used for performing these functions is labeled by comment cards 
for easy identification. The OUTPUT CALLS block is used only to print out 
a "thermal snapshot" of the temperatures throughout the freezer at selected 
intervals during a run. 


Line Numbers 
594-600 
606-625 
628-757 

761-780 


C-2 
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TABLE C-l 

SYMBOLS USED IN SINDA 
THREE-DIMENSIONAL MODEL 

i 

A SINDA array used to .input arbitrary door opening time schedule. 

C SINDA array of capacitance values (Btu/°F) 

CAP Thermal capacitance (Btu/°F) 

CDLINS Thermal conductivity of insulation divided by its thickness 
. . - . (Btu/hr sq ft °F) 

CTL Effective thermal conductivity of front angle connecting inner 

and outer shells, divided by insulation thickness {Btu/hr sq ft °F) 

CTOT Total thermal specific heat of all freezer internal nodes 

(Btu/°F) 

CTWALL Combined thermal conductivity of the walls/insulation/packaging 
layer divided by its thickness {Btu/.hr sq ft °F) 

CWATTS Total heat removed by refrigeration unit when on (Btu/hr) 

DX,DY,DZ Arrays of nodal thicknesses in the X (horizontal), Y (vertical) 8 
and Z (axial) directions (feet) 

DXL,DYL,DZL Arrays of distances between nodal centers in X (horizontal), 

Y (vertical), and Z (axial) directions (feet) 

G SINDA array of conductor values (Btu/hr °F) 

GDLPAK Thermal conductivity of packaging layer divided by its 
thickness (Btu/hr ft 2 °F) 

GXP,GXL,GYP,GYL,GZP,GZL Conductor values from fresh medical sample node 

to adjacent nodes. X, Y, Z refers to horizontal, 
vertical and axial directions. P and L refer 
to plus and minus directions along axes. 

J Typically used as counter for numbering nodes in the X (horizontal) 

direction 

L Typically used as counter for numbering nodes in the Z (axial) 

di recti on 

LOOPCT System iteration counter 

LPLOT Flag to request storing of plot data when positive 


C-3 
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TABLE C-l (Continued) 

M Typically used as counter for numbering nodes in the Y (vertical) 

direction 

NCASE Number of the current case being simulated 

NLINE Selected data will be identified and defined after it is 

printed every NLINE lines 

NPR Selected data will be output every NPR lines 

— NPTS - Number of data points to be plotted -- - • - 

NSAMP Node number used for fresh medical sample 

NXP s NXL,NYPjNYL,NZP jNZL Conductor numbers from fresh medical sample node 

to adjacent nodes. X, Y, Z refers to horizontal* 
vertical and axial directions. P and L refer to 
plus and minus directions along axes. 

OPEN Used to store door opening flag from previous iteration. Door 

is assumed to open v/henever this flag changes sign. 

PWATTS Coolant pump electrical power (watts) 

QCOOL Heat removed from locker by coolant (Btu/hr) 

QDOOR Heat input to locker from a single door opening (Btu) 

QLAT Latent heat of fusion in fresh medical sample water (Btu) 

QREM Net heat removed from coolant by refrigeration unit (Btu/hr) 

QWALL Net heat leak into locker through freezer walls (Btu/hr) 

RCPT Wall/insulation/packaging layer density— specific heat product 

divided by its thickness (Btu/lb sq ft °F) 

TAVG Bulk average temperature of all freezer internal nodes (°F) 

TCOUT Coolant outlet temperature from locker (°F) 

TCNTRL Temperature used for thermostat control of refrigeration unit 

TFR Medical sample liquid freezing temperature (°F) 

TITLXjTITLY Hollerith titles used for axes of output plots 

TMAXJMIN Maximum and minimum temperature of all freezer internal nodes (°F) 

TOFF Low temperature limit at which refrigeration unit turns off (°F) 


C-4 
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' TABLE C-l (Concluded) 

TON High temperature limit at which refrigeration unit turns on (°F) 

TPLOT Next time for storing data to be plotted 

X2 Array of X- values to be plotted (time - hours) 

XKS Initial thermal conductivity of material in medical sample 

location (Btu/hr ft °F) 

Y2,Y3 s Y 4 3 Y5,Y6,Y7 Arrays of Y-values to be plotted 


C-5 
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BELT ,Ul 29. MODEL 

ELTDT7 RLJB70 07 t 1 1 -22 : J 7 i SO- ( 0 . 11 


OOODO 1 

OOO 

Bco 

3THERMAL LPCS 

000002 

OOO 

. BCD 

6 SHUTTLE FREEZER 

000003 

00 1 

Rem 

PREPARED BY 

000009 

001 

Rem 

JULY l' 

000005 

001 

• REM 


000006 

ooo 

.END 


000007 

ooo 

BCD 

3H00E DATA 

DCOOQB 

000 

. gen 

1,155,1.-10*,!. S 

000009 

ooo 

gen 

156,10,1, -ID. , I 

000010 

. .000 


-200,-20*, 1. S 11 

00001 l 

□ 00 

' 

-500 ,80 S AM| 

000012 

000 


-501 ,100. ,1* 5 BOI 

OCOOl 3 

ODD 


-502 ,9Co , 1 • S CORl 

000019 

,000 

end 


000015 

ooo 

BCD 

3S0URCE DATA 

000016 

000 . 

END 


000017 

ooo 

BCD 

-3C0NDUCT0R DATA 

COCO l a 

ooo 

REM 

3 ITH 

000019 

ooo 

R£K 

VERTICAL !Y) 

000020 

ooo 

GEN 

1,20,1,1,1,6,1, 0 

00002 1 

ooo 

G£N 

21 ,20,1 ,26,1 ,31 ,1 

000022 

ooo 

•- . 'GEN 

91 ,20,1 ,51 , 1 ,56, i 

000023 

000 

GeN 

£ 1 »2CI » I )76 » 1 * 8 I * I 

000029 

000 

gen 

ai , 20,1,131,1,13 

000025 

ooo 

gen 

101,10,1,126,1,13 

000026 

. .-J3G0 

GEN 

111,10,1,191,1,19 

000027 

000 

. REM 

HORIZONTAL (X> 


D J PUSSELL 


000028 
000029 
000030 
000031 
.000032 
000033"' 
..000039 
000035 
000038 
000037 
000038 
000039 
; 000090 
00009! 
000092 
000093 
.000099 
000095 
000096 
eOGG97 
_ 000098 
000099 

„oacoso 


000 . 

000 

. ... 000 

000 

000 

. 000 

. . ooo 

ODD 
000 
000 
000 
000 
000 
000 
...ooo 
000 
000 
000 
.000 
000 
.2 - 0D0_ 
OOO 

000. 


121.103.1.1.1.26.1, 0. . 
221 .30. 1 » 1 1 1 . 1 .1 26, 1 i 0 

AXIAL t z > 

251 ,3 1 . 1 , I .5 .2 ,5 . 0. 

262,31,1,2,5,3,5, 0* 

3 1 3 » 3 1 » 1 1 3 » 5 , 9 ,5 , o» 

399 ,31 » 1,9,5 ,S, 5, 0. _ 

.'•.{EXTRA FOOD) 

375 >5ilj..l56>l i 126,1. 
3B0>5,1, 161,1, 191,1, 

335.5.1, 106,1, 156,1, 


S ;. 

s 

5 

s 

s . . _ . .. 

s 

s 


s 

s 

s __ 


375.5.14. . 156.1, i 126,1, 0. S : '-3_: 

3B0,5,1, 161,1, 191,1, O.S 

3 35.5, 1 , 106,1 , 156,1 , 0._S J V 

390.5.1, 156,1, 1 6 1 , 1 , 0* S 

395 .9. 1 , .156 , I , 157,1, 3. S 

399.9.1 ,-161,1 , 162,1., 0» S 

INNER .KALLS-TO-OOTER BOUNDARY- 

1001.100.1.1.1.500.0, 0. S 

1101.6. 1.1.21. 1 ,502,04-0. S ' 

1 107.3,1,107,1 ,501 ,0, 0. S' ‘. v ‘ 

1110.110.502, 0. S . J 

1111.95.1.111.1.500.0, O.S 

1156. 156. 502, 0. S 1 : 

1 157 ,3 , 1 , 157 , 1 , 5D1 ,0, 0. S 

1160.6.1, 160,1, 502,0, 0«— S _ — 


'ST 

000051 

OOO 

REM 

COOLANT 

cc 

000052 

. . 000 

.. 2109,-200, 

109, 1 . 5 _ 

CO 

000053 

OOO 

2109,-109, 

106, .5 S 

r- 

000059 

.000 

... 2:107,-108. 

137, ,55.. 

T— ”• 

CO 

000055 

OOO 

2106,-107, 

136, ,2& 5 


- -2- ... 

”:V— Vjy. i \ . 




■ V -. 


OF- P 00R- ..QUAL^('^') 


' 

WaS - V" :• •>, 
- > > 

i * ** * '' •;*) % •.’:/* * * 

“ /'“/ . -ArV . » - 
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000056 

000 


2156,-106 , 1 56 , .25 S 

000057. . 

000 . . 


.2157,-107,157, .25 S _ 

oooosa 

000 


2159, ”109 , 159, .25 S 

000059 

000 . . .. 

. -2161,-156,161, .25 3 _ _ _ 

000060 

000 


2162,-157,162, .25 S 

000061 

000 


2)6*4.-159,168. .25 5 _ . _ 

000062 

000 


2181,-161,181, ,25 S 

000063 

000 


2182.-162. 182, .25 S ... . - 

000068 

000 


2188,-168, 188, .25 S 

000065 

OOQ 

G£N 

2186,2,5,-181 ,5,186,5, .25 5 . ....... ....... . _ 

000066 

000 

GEN 

2187,2,5,-182,5,187,5, .25 S 

000067 

000 

GEM 

2189,2,5,-188,5,189,5, .25 5 

000068 

ooo 

gen 

2136,2,-15,-151,-15,136,-15, .25 S 

000069 

000 

GEN 

2137,2,-15,-152,-15,137.-15, .25 S... 

000070 

000 

G£N 

2139,2,-15.-158,-15,139,-15. .25 £ 

000071 

ooo 

gen 

2096,8,-25 , -121 ,-25,96,-25, ,25.S.. .... 

000072 

000 

gen 

2097,8,-25, -122,-25,97,-25, .25 S 

000073 

ooo 

gem 

2099,8,-25, -128 ,-25,99,-25, .25 5 _ .... 

0000? 4 

ooo 

gen 

2016, 8, -S, -21 , -5, 16,-5, .25 S 

00007S 

OOO . 

GeN 

20(7,81-5, -22,-5,17 »-*S »— .25 S . ... . 

000076 

- ooo 

GEN 

2019,8, ‘-5, -28,-5, 19 , -5, .25 S 

000077 

ooo 

GEN 

2026,8,25, -1 ,25, 26 ,25,. .25.3 ... 

000078 

ooo 

gen 

2027,8,25, -2,25, 27,25, .25 S 

000079 

ooo . • 

GEN 

2029,8,25, -8,25 , 29 ,25, .25. .S 

000080 

ooo 


3102,-101,102, . 2S 5 

CC0081 

ooo 


2103.-102. 103. .5 $ ‘ . - ’ 

000082 

ooo 


3108 ,-103 , 108, .5 S . 

000083 

. ooo 


2110.-109. I 10. .25 5 

000088 

ooo 


2090,-110,93, .25 S 

000065 

ooo 


2n6H.-9n.AT. .75 S 

000086 

000 

ge« 

2065«2i5i •'60f5*6SiSi »2B S 10 

000087 

.. ooo . .. . 

gen 

2095,2,25, -70,25,95,25, .2S X 

000088 

ooo 

Gen 

2135,2,15, -120,15,135,15, ,25 S 

000089 

^ ooo . 


2)55,-150,1 55 , .25 S 

000090 

ooo 

gen 

2180,2,-15, -155.-15,180,-15, .25 5 

000091 

. ooo 

GeN 

2100,8,-25, -125 ,-25 , 100 ,-25 , -.25 S . . 

000092 

ooo 

gen 

2020,8,-5, -25, -5, 20, -5, .25 S 

000093 

OOQ 

Gen 

2030.8,25, -5.25,30.25, ,25 S ........ . . 

000098 

ooo 


8108,-105,108, ,25 5 ■ ■ 

000095 

ooo 

end 


000096 

ooo 

BCD 

3C0NSTANTS DATA 

000097 

ooo. . 


NLOOP*30D 

000098 

□ 00 


DRLXCA*. 00302 

000099 

ooo 


ARLXCAO.0D302 

000100 

ooo 


DAMPO-1 .0 

000101 

OOD 


0AMPA«*l*O * 1 ’ 

000102 

000 


CSGFACal.l 

000103 

ooo 


DYIMEH#. 1 " 

00010*) 

ooo 


DT I MEL=» • OOO 1 - - • - " 

000105 

coo 


DTMPCA»2. 

000106 

ooo 


ATHPCA«2, - •. . 


.000107 

OOO 

000108 

OOO 

000109 

OOO 

0001 10 

OOO 

00011 1_ 

□ 00 

OOD 1 1 2 

- ooo 


l“0 . . _ 5 

2«1.96? 5 
3= • 03 1 2S S 
■4*= I 1 i • 5 

5s.2oa. s 
6® 1 69 , S 



-case .number : : 

INSULATION THICKNESS (IN.) 

METAL WALL. THICKNESS (IN) v ...l, 

METAL WALL CONDUCTIVITY I BTU/HR-FT-r 1 
METAL WALL -SPECIFIC .HT-* -(sTU/LB-F) 
METAL WALL DENSITY (LB/C^ FT ) 



- STRUCTURE— 

- structure 

- STRUCTURE— 

- STRUCTURE 
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7°»0I 1 67 S INSULATION CONDUCTIVITY 4 sTU/HR-FT~F ! 

8*=*2 s INSULATION SPECIFIC HT. !bTU/L8-Fj _ 

9*=Z. S INSULATION DENSITY ILB/CU FT) 

s packing layeh thickness un.) 

II*. 05 5 PACKING LAYER CONDUCTIVITY I UTU/HR=fT-F 1 

12 = . 2 S PACKING layer SPECIFIC HT (3TU/LB-F) 

13=1.5 s packing layer density ilb/cu ft) 

•1*1 = 116. S «ALL SPACER CONDUCTIVITY ( 3TU/HR-F7-F ) 

15= .0625 S A ALL spacer THICKNESS (IN,] 

. I6=.20d S A ALL SPACER SPECIFIC HT. ISTU/lB“F) 

17 = 169* s viall spacer density ilb/cu fti 

ia=i. s food conductivity ibtu/hR-ft-fi , - 

-l9a,*i s food specific ht. 

2o=3o. s Food density 

21=200. S COOLANT FLOflfiATE (LB/HR) 

. 22= «*4 H S COOLANT SPECIFIC HT. (-8TU/LB-F) 

23=9 S COOLING UNIT ON ( *■ ) / OFF I — ) SWITCH 

• 2*4 = 6, S TlriE FOR FIRST MEDICAL SAMPLE I USeRT I ON - i HRS ) 

25=3. „ s Time for first door opening (hrs) 

End _ 

BCD 3ARRAY' DATA 

3 S DOOR OPENING SCHEDULE- I 

0 . • 1 * * ♦ l * “ 1 • , .2,1*1 < 3 i ~ 1 . , .*4,99.* 


030137 
OOO 1 3 B 

OOO 
□ 00 

F 

BCD 3EXECUT ION 
COMMON /FREZR/ DXI7),DY(5) 

000139 

ooo 

F 

cNsamp.qlat ,xks,open 

000,1 HO 

OOO 

_ F 

COMMON /UPLOTX/ NPT5 , T PLOT: 

0001 *4 1 

OOO 

' F 

Of Y6t300),Y7(300> 

OOO 1 H 2 

_ 000 

F 

Dimension xieaoot 

0001*43 

" ooo 

F 

GSeRIGI ,G2) = G1«G2/ (G1-S-G2) 

OOO 1 *4*4 .. 

ooo 

. F 

Nn? H«snnD 

000 1 *45 

ooo 

F 

NTH = 0 

OOO 1 *4 6 

ooo- 

F 

DATA DXL/ H«5. , 2*6 »/ 

GG01H7 

ooo 

F 

data dyl/ s., 2*3.1, 6.8/ 

OOO 1 *48 . . 

ooo 

F . 

DATA DZL/ *4*3.875/ - 

C001 H 9 

000 

F 

IF (K( j ) .GT.0) GO TO ID 


.. - 000 
000 
000 
000 
. 000 
OOO 
000 
000 
000 
000 
. _ ooo 
000 

.'000 

ooo 
ooo 

DOO 
. -J_„-000 
□ 00 

ooo 

ooo 


Do S 14 = 1,6 

0 XL ( N 1 *D XL 1 44 1 / 1 2 . 

IF I N , G T • *4 1 GO TO 5 

DYl(N)=DYL(N)/12. 
DZl«N)=DZLIN)/12, 

Continue 

continue • 

da T a ncase /o/ 

NcaSE»NC A 5E" j 

Dxu )*.5®DXLm 

OYtt )».S*DYL(U. 

021 1 )**,5*DZLli ) 

DO 20 14*2,6 

DXlH)=.S»(OXLlN~I ) *DXL l N ) ) 

IF IN.GT.H) GO TO 20 

DY(N)a.S*(DYL<N-l ) *DYL { N ) ) 
.DZt!4)=,5»IDZLIN-l 1+DZLitm. 
ConTINuE 

. Dx(7>o.5«0XU6) 

DycS>*.S*>DYL(*4) 




\ A >' ‘ * 

-*'** '‘IT..** 




-• v- a 

■ ■.•a ' 


■ 4 .. » • - 

. • . t 


r o 
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000170 

000171 

000 i 72 
000173 
000 1 7 H 
000175 
000176 
000177 
000 1 7 S 
00017? 
000180 
000 181 
000182 
000183 
0001 8H 
000185 
000186 
000187 
OCO 188 
,000189 
000190 
.000191 
000 1 92 
000193 
0001 9 M 
000195 
000196 
000197 
000198 
000199 
000200 
000281 
000202 
000203 
'OOQZOH 
000205 
000206 
000207 . 
000208 
.000209 
000210 ’ 
000211 
000212 
1000213 
00021 *) 
000215 
000216 
000217_ 
000216 
.000219 
000220 
.000221 _ 
000222 
000223. 
00022*1 
,0D022S_ 
000226 



000 r 

000 c 

000 c 

000 c 

000 c 

000 F 

000 r 

000 F 

000 F 

COO F 

000 F 

000 F 

000 F 

ODO F 

000 F 

000 F 

000 F 

000 F 

000 F 

000 -F 

COO F 

ooa F 

000 c 

. 000 F 

'COO F 
000 F 

000 F 

__ ,000 F 
000 F 

... ooa . f 

DOO F 

000 F 

000 F. 

000 F 

000 F 

000 F 

000 F 

000. . F 

000 C 

ODO... F 

000 F 

_ 000 F 

000 F 

000. F 

000 F 

OOO . F 
000 F 

_ 000 . F 

000 F 

000 F 

ODO F 

COO ... F 

000 F 

000 F 

000 F 

_ . 000 . . F 
ODO F 


OZ (5 ) ».5®dZL m 

-- COMPOTE ALU FOOD conductors 
VERTICAL IY) 

Do *10 H = 0,3 ... _ _ ^ ... 

DUhal , . 

IF IM.LT.1J 0UM*=.S 

DO HP L*l.5 

+ E — 1 

Gtt+H)* X £ t 1 8 ) • D X t 1 )®DZ(Ll/DYLtM+l 1 

Gt2l*N)=XK. C181»DXI2)*0ZtLl/DYLtH+ 11 

G<h1*A‘)bXK ( 1 a 1 «£U (3 ) »0Z <L l/DYL t M+l ) 

.. 6(6l + N)=*XK ( 18)*DX<H >*DZ (L1/DYL1H+1 ) 

Ol B l-oN)=XK(18)«DX(5>eOZ(Ll/DYLlH*lJoDUf1 

IF IP.GT.1) GO TO *10 . _ 

G( lO!*r:)»XK( iflJ*0X<6 )»0Z{L)/DYL!M + 3) 

. .. GtlU+Nl=XKU8)*DXt7)*DZlL}/DYL(H+3) 

I’F IM.JST.0 1 GO TO MO 
G { 375+.N 1=*XK. (16)«DXt6)*DZ(L}/DYL{2) 
G{38C*M)*XK ( I8)*DXI7>*D2 tL I/0YL12) 
ho continue .... 

„ HORIZONTAL (XI 

DO 50 H = 0,*t 

DUmbI. - 

Do 50 L= 1 >S . _ ' 

Nag o(i+L” 1 

G ( 1 2 1 -t-N ) *X K ( 18 1 «DY (K+ 1 ) *DZ ILJ/DXLtl ) 

G(lM6<-N)=XK51S)«OYCHfll*DZ(LJ/OXL(2) 

. „G(i7|+m»xKI181*OY(M+l)*DZtLI/Dxi.(3) 

G ( t?6*N)*XKU8 )«DY ltt+1 ) «DZ(L)/OXLl*») 

IF (M.6T.21 GO TO 50 _ 

G(?21*Nl = XKUB)«0r (M + 3) «0Z (Ll/DXL (5 1 *>DUH 
.. . G(236 + N) = XK(181»DY(M + 3)«DZ.(L.J/DXL(6)*DUM 
. IF (M.GT.Ol GO TO SO 

.. S( 3 85+N} b XK ( 18 1 *DY C2 > «DZ(LJ. /Dxl ( S ) 0 .5 

G( 390 + N >*XK (18)«DY(2)»DZ(L) /DXL< 6 ) ».5 
so. continue ; ^ 

AXIAL <Z> 

Oo .60 J = 1 ,7 

«LbO 

If (J.GT.51 kl*u 1 

Do 60 M bHL 1 *i 

DUfs>l» ■ ' . 

IF IM.LT. 2 .AND. J.GT.M) DUh».5 

If (M.EO.l .AND. J.E0.51, .DUM*. 75 __ 

DO 60 L=I ,H 

IF (J.GT.51 GO TO 55 

Nuk-OI • (L-i ) + 5 ® ( J~ 1 1 

G(25l+N)tXK( 181 *DX(J)*DY(M*1 jyoZLlLlaDUM 
Go TO 60 

55 Nb»- 2 + 3 1 o ( L-I ) ♦ . 3 o ( J r 6J 1 

IF (tt.GE.21 GO TO 57 

— L-I . 

6(395* HJ«XK‘( 18 1 • DX ( J ) »D Y ( 2 > /D2L ( L J * .5 

. GO TO 60 . . 

57 continue .- . . . • 




' d&lGMAB PAGB-IS-;- 
'OF-'POOR QUAU^y; '. ; 




■ 18 1.7880 
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000227 

000 

OC022B 

000 

00022 7 

000 

000230 

000 

000231 

coo 

000232 

000 

000233 

000 

000234 

000 

C00235 

000 

000236 

000 

000237 

000 

000238 

000 

000239 

000 

0002*30 

000 

000241 

000 

000242 

000 

• 000243 

000 

000244 

000 

00024$ 

000 

000246 

ODD 

000247 

coo 

000248 

000 

000249 

ODD 

000250 

000 

000251 

000 

0002S2 

000 

000263 

ODD 

000254 

coo 

000255 

000 

000256 

000 

000257 

DOO 

•000258 

000 

000259 

000 

. 000260 

COD 

.000261 

000 

.000262 

OOQ 

000263 

000 

000264 

000 

000265 

ooo 

000266 

000 

000267 

ODD 

000268 

000 

000269 

000 

. 000270 

000 

000271 

000 

000272 

,000 

000273 

OGO 

000274 

000 

- 000275 

000 

. 000276 

000 

000277 

ooo 

- 000278 

000 

000279 

- ooo 

000280 

• 1.000 

0002S1 

ooo 

000262 

._ . 000 

800283 

ooo 

* 





Gl276-»N)“XKC 18)«DX{J)«DY ( H* 1 )/OZL<L)°OUH 

COkTINUE . __a 

_ . ado res i stance thru packaging at spacer ..alls jseriesk. 


gdlpak=xk HD/xn 
vert 

DO 62 Mb 0 ( 4 
DUm*I • 

IF (MeEO.l) DU«=. 
DO 62 L=1 |S 
Gp„GDLPAK®DY{M+t 3 
N*5«M * L»1 
G ( | 46 + N 3 «=GSER ( G I 
G l j71*N3=GSER { G< 
IF IM.EQ.0J GO TO 
IF (M.6T.3) GO TO 
Na L -J 

G{201 '•NJ&GSER [ Gt 
G(38S + N)*=GSER ( Gf 
GO TO 62 
CONTINUE 
>(tt£»<H»2) + U“I 
G(2C6-fN)«GSER( GC 
G I 22 1 + h ) bGSER ( G t 

: continue 

. , HORI 

Do 63 M«=0 1 1 
Do 63 L c I )5 
GP„GDLPAK»DZ IL) 
N»j«M * L-l 
G(5l+N)».S<>GI51<-N 
G(7l*N)«=G5ER< G ( 7 
I _G ( 9 1_+N ) b * 5 ® G C.9 1 ♦ N 


1 0 ) • t 2 « 
ICAL ft ALUS 


»DZU-3 

I 46+N GP). 
171+N), GP J 

62 

61 

201+N) , GP) 

385+N ) , GP»[ 


206+N ) , GP 
221+N), GPet 

20NTAE WALL 


3 + GSER< 
1+NJ, GPpDXI 
3 _♦ .GSER. 


► N3, GP*DX<33 e«S*3- 
>-H >_»_ GP®DXl5J*r5J_ 


ADD RESISTANCE, thru, packaging at STRUCTURAL SAL 3-S-- tSgR j E<;3 

TOP-BOTTOh SIDES ~~ 

DO 69 Jni ,7 

DUm = I • . . 

IF 5J.EQ.S) DUH»«5 

DO 69 L«=l,5 J - • • ________ 

Gp E GOLPAK®DXtJ)eDZ{L) ' / - 

IF tJ.GT.5) GO TO .67 , _I ' j ' 

N»l-I * 20*1 J-l) 

G( i+N)= 6SER(G( 1+N) g GP*DUH). ~ ' 

G( 16*N)ttGSER(G(16<'N3 ,GP) . . 

Go TO 69. . - -v 1 

7 N*(.-l ♦ JOMJ-53 -r V. , .. - ... 

3 G ( 9 6 + N 3 «GSER ( G(96*N3j,GP3 1 1— L 

NbL“ 1 ♦ So { J— 6 3 - i -' 

G { 375*N 3 “GSER I G 1 375*N3_> _GPJ _! ' - -1 r ~ V_ 1__ 

? continue • 

1 IEF T-R IGHI 5J.DES JT -jl±. I 

Do 74 H= 0.4 . 

Dup“ 1 o - = • 1 

if (K.EQ.n dumb.s . • 


:. m^OOR QUmz^- 
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( 

00028*1 

000285 

f . 000286 

000267 

Q0D2B8 

1 00028? 

- .. 0002?0 

000291 

" ■ 000292 

000293 
00029*1 
( 000295 

000296 
000297 
( 000298 

00029? 
000300 
C 000301 

000302 

000303 

( 000309 ’ 

000305 

... • 000306 

. 000307 

000308 
000309. 
i 000310 

000311 

000312 
( _ . 000313 

00031*1 

000315 

( 000316 

■_ 000317 

000318 

C ■ L 000319 .... 

000320 
000321 
( 000322 

000323 
00032*1 
C . . 00032S 

000326 

•» v ; ' 000327 

■ ( ”000328 

000329 
000330 ■ 

(„ _ 000331 . 

000332 

. 000333 *sf*- 

f 00033** 

.:j„ooo33s-,v;.. 

00033**? 

( I 000337 * . 

• 000338 

00033? 

(' ’ ■ 000310 ' 


000 F 
000 F 
ODO F 
000 F 
000 F 
000’ F 
000 ■ F 

ODO F 
COO F 
CCO F 
000 F 
000 F 
000 F 
000 F 
000 C 
OOO F 
000. F 
000 F 
000 F 
OCD F 
000 ■ F 
000 F 
000 F 
OOO F 
GOO F 
OOO F 
OOO F 
OOO F 
OOO F 
OOO F 
OOO F 
000 .. F 
OOO F 
OOO F 
DOO F 
000 F 
OOO F 
OOO. . F 
OOO C 

OOO C 

OOO C 
OOO J 

000 c 

.000.. . F 

OOO c 

OOO _ F 
OOO F 

OOO F 

COO F 
OOO F 
OOO F 
. 000 _ F 
OOO F 
•OOD „ F- 
000 F 
000 . F 
OOO F 


DO 7? L*»1»S 

gp*gdlpak*di'<m+i>»dziu : 

Nn£*K + L-l 

G( {2 t +N ) »6S£R(£ ( 121 +N] , gpj . 

IF (M.EQ.01 GO TO 7D 

IF tM.GT.l 1 Go TO 72 i 

N «L-l 

G(390+N ) bGSER { GI390+H), GP+DUM) L. ~ 

GO TO 79 

70 G( 196+N1»GSlR[61 196 + H) , GP1 ___ 

GO TO 7*1 

72 N = s» ( M-2 ) + L-l 1 ; 

73 G( 2 36+n)=GSER( G1236+H), GP+DUHJ 

79 CONTINUE 

FRONT-BACK SIDES 

DO 7 6 J" 1,7 

«L = 0 

. IF C J .GT « S 1 H|_=* 1 : 

DO 76 ML , 9 

' ..GPcGDLPAKsOXlJ) o DYtH + U J 1 

DUh* 1 o 

IF (J.GT.9 »AIID. M.LT«2) . DUM=.S J 

JF tJ.EQ.5 .AND. M.EQ. 1) DUH=,75 

IF tJ.GT.5) GO TO 75 

*'* — !■ +- S* { J-l 1 

G(251+N)=GSER( G(2S1+N)j GP+OUHJ 

G(399+N)*GSER l 61399+N), GPeDUK) 

. GO TO 76 .. 

75 N»m- 2 + 3o(J-6) 

IF tM.GT.l) GO TO 77.... 

6 ( 395 + N ) “G5ER ( Gt39S+N), GPoOUMJ s 

Gt 398+N ) «G5ER { G(3?8+N), GP+DUM) 

. .. GO TO 7fi _ - 

77 CONTINUE ' ■ 

. .G1276+N)»GSERI..GC276 + N1 , _GP®DU.M-1 E_, 

6(369+N)“6SER( 61369+ N) , GPsDUH) 

76 CONTINUE. __ • 

.. . . ADD WALL/INSULATION/PaCUNG. CONDUC.TJON 1PARALUEU— — — 


. CTv*ALL*XKl7)*.5»XKl2)/12.. +_XX ( 9) ® XK L3 ijOZ , XKi J U«XK{iOJ/^ 

vertical m 

_ Do 85-M»0,3 • ” 

tLEFT-R IGHT BALES) 

DO 80 L B 1 , 5 

N»s«ft+L-1 

Gu+N) = 6l l+H)+CTWALL«DZiLJy.0Tl4^fci4 1 1 ' 

IF tH.6T.ll GO TO 79 

IF tM.EO.Dl GO .TO 78 ' 

Nol-J . • ' r 

. . Gt380+N)°G(3 80 + N)+CTtfALL»DZiEX£DYJ_t21 

GO TO 80 . • : 

78 CONTINUE — . r-‘± 

Gtfil+N) «Gt81*Nl +CTHALL»OZtL)/0YLIH+l 1 

.Go .TO 80 ' • 

79 Mas* l M-2) + L-l 



1 
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000391 

0 0 0 

F 

000392 

000 

F 

0003*13 

• 000 

c 

00039*1 

ooo 

F 

000395 

COO 

F 

000396 

000 

F 

000397 

000 

F 

00039a 

000 

F 

000399 

coo 

F 

000350 

000 

F 

000351 

000 

F 

000352 

000 

F 

600353 

000 

F 

• .1 000359 

.. 000 

F 

000355 

DOO 

F 

000354 

.000 

F 

000357 

000 

F 

000358 

. .. 000 

F 

000359 

000 

F 

00036C 

_..ooo 

F 

000361 

000 

_C 

000362 

000 

F 

600363 

DOC 

F. 

00036H 

. 000 

F 

C0036S 

000 

C 

000366 

OCO 

F 

000367 

000 

F 

000368 

000 

F 

000369 

000 

F 

. 000370 

000 

F 

000371 

000 

F 

. 000372 

DOO 

F 

000373 

000 

F 

000379 

000 

F_ 

000375 

000 

' F 

. .000376 

000 

F 

000377 

000 

C 

__ 000378 

000 

F 

000379 

000 

F 

000360 

000 

F 

000381 

000 

F 

000382 

.000 

F 

C00383 

000 

F 

000389 

- . 000 

F 

000385 

000 

F 

000386 

coo 

F 

000387 

000 

F 

__000388 

. . 000 

F 

000389 

000 

F 

000390 

. . .000 

F 

000391 

000 

F 

_ 000392 

00 0. 

. F 

J. 000393 

000 

C 

000399 

000 

C 

000395 

000 

F 

v 000396 

. ... 000 

F 

000397 

* 

000 

F 


(FRONT-BACK WALLS) 

_... 

5 

- 


6(lt>*N)«6(lI 1 vN)+CTWAUL«DZ(L)/DtL(M*1 ) 

continue . _J 

' " (FRONT-BACK WALLS) 

DO 83 L=0t9,H _ 

OUMd. 

if ifi.LT.n dum*=.5,_... 

Nb5»H+-l 

G( (♦N)»G( 1*N» + CT'*ALL*DX ( 1 )/DYL(H*l ) _ " 

G(Zl*HJ * G ( 2 1 + M ) ♦CT.VALL«DX(2>/0tL(H + I) 

. G ( ** 1 +H ) =G(91+N> +C71VAlL«DX (3 )/DYL(H+l I 

G{ A I+N) »G ( 6 1 +N ) ♦ CTWALL»DXf9)/DYC(H->| ) 
GCal*N) =G(8I+NJ ♦CTWAUL«DX{5 J/DYL1H+I )«DuH. 
IF (HoGT.l) GO TO 83 

G{ ]'01+N|«G( iai+N)+CTlYALL»DX(6)/DYLlH + 3J 

Gill 1*MJ-G < I 1 I *h ) +CTWALL«OX <7 l/DlLIH+3) 

IF (M*EQ.1> GO TO S3 _ 

G(375+N)»G(375+N)+CTYMLL®DX (61/DYLI2) 

G(38Q+N) = G(38Q+N) ^CTfi ALL«DX (7I/0YHZ4 

COHT 1 HUE 

.CONTINUE . 1 

HORIZONTAL (X) 

DO 100 H*0»9 

DO 100 J»l,6 • - 

IF (H.gt.O) GO TO 95 . 


V*«* * % < * .' 


. 000 F if (H.GT.O) GO TO 95. , 

000 C (TOP-BOTTOM HALLS! 

OCO F ■ DO 90 L=l»5 . 

000 F IF (J.GT.9) GO TO 88 • 

000 F N» L -{+25* ( J-l ) . 

000 F G( 12] ->N)aQl 12 UN)+CTWALLoDZ(L)/DXL{ J) 

000 F .G { 191*N)*G( i91+h)+CTWALL®DZ ILJ /DXL { JJ si 

000 F GO TO 90 

DOO F.. 88 N = L~I ♦15° ( J-5) 

000 F G(23f»N)«G(231+N»+CTHALL»DZ{Ll/0XL( J) 

000 _F_ N=L-1 ♦ 5® ( J-S > ; : 

000 F G(3a5+N)=Gt38S+N)+CTHALL®DZ(L)/0XLl J) 

000 F ?0 _COnTI NUE 

000 C (FRONT-BACK WALLS) 

000 . F 95 IF (J.GT.9) GO T0_97 

ODO F Na5«M+25® ( J-i ) 

000 F G(i2I*N)»g( 121+N)+CTHALL*0Y(H*I1 /DXLi-JJ 

000 F G< 125+N) ”6 ( 125-N ) *CTHALL®0 Y( H+I ) /DxL< J J 

.000 F GO TO 100 . . _ 

000 F 97 IF (H.GT.2) GO TO ICO - - 

-.000 . F N«5«M + l5®(J-5) 

000 F OUH° 1 • 

COO F G(221+N)=G(221*N)+DUH®C7Y/ALL«DY(M + 33/DXL-Ljl 

000 F Gt225+N)nG(225+N)+DUM®CTHALL®DY(H+3)/DXL(J> 

. . 000 F IF (h.gT.O) GO TO 100 

000 F - N=s®( J-5) 

.000 _ F _ G(385*N)nG(385 + N)®.S®CTWALL*Dyi2l/Oj(.L-U!_} 

000 F 6(389®N)oG(389*N)+,5«CTRALl®DY(2)/DXL(0j 

000_. F 100 CONTINUE 

000 C -> AXIAL (Z) 

000 . C 1 ClEFT -RlfiHl KM.I5I 

000 F 00 110 MnO,H 

. ... 000 __ F. DU*»I, ' ' 1 ■ 

000 F IF (M,Eg.i) DUHo«5 . , . . 

~ ! - . - <■ C ' ^ 

4 ~ -■ vi- : '• " 

■-H-O^WQB^EAEHY .--r-f-Hi .. 


w'v * t , ^ ; 
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000398 

000 

F 


DO 1 10 L“1 «9 

000399 

. 000 

F 


N = H*31 * (L-l ) . - 

oocsoo 

■ 000 

F 


SI 251 ♦N) s Gt2Sl*N)+CTWALLoDY<M*l 1/DZL1L) 

.. 000901 

000 

F 


!F tK.GT.l) GO TO IG5 ...... . _ . 

000902 

OOQ 

F 


G {271+«)*6 ( Z“1 +N> ♦DUH.CT'.IALLoDY (M*l )/DZLIL> 

000903 

000 

F 


IF tU.fO.O) GO TO llfl 

000909 

000 

F 


Nt^-l 

000905 

" 000 

• F" 


G(39O4-N)*6l399 + N)+PUM0CTKAU.®DY{2)/DZLtLJ ~ ~ 

000906 

000 

F 


GO TO t 10 

000907 

000 

F 

105 

Nck- 2+31* iL-1 1 

000908 

000 

F 


G < 279 + n ) *=G 1279 + N ) +DUH» CTV.ALL'DY 1 M+t ) /DZL< L> 

000909 

000 

F 

I to 

continue ....... ... 

' 000910 

000 

c 


.(TOP-BOTTOM WALLS) 

'.00091 1 

. 000 

F 


DO 120 J*1 ,7 - 

000912 

000 

F 


DUH*1« 

000913 

oao 

F 


IF 1J.EQ.5) DUH= » 5 

000919 

000 

F 


DO 120 L = 1 i9 ' 

000915 

000 

F 

, 

IF CJ.GT.5) GO TO 11B 

.. 000916 

ODD 

F 


N = S« (4-1 ) *3 l« 1 L- l 1 

-- --- 000917 

.000 

. F 


G (251 +H ! = G t 2 5 1 +N ) «-DUM »CTW ALL »DX t J 1/DZLlLl 

' 000918 

000 

F 


G{255+N)*Gt255+N)+ CTV. ALL*DX t J ) /DZL ( L 1 

.. 000919 

000 

F 


If U.LT.5) SO TO 120 - • 

000920 

000 

F 


N»3l*tL-!) • 

^.000921 

000 

_ 'F 


.St272 + N)=6 t 272 + N ) + DUM° CTWALL »DX t J ) /DZL (LI- 

000922 

000 

F 


GO TO 120 ... 

• 000923 

000 

F 

115 

N = ^*{.l-5 1*31 • (1 -1) 

000929 

000 

F 


G(275+H)=Gt275 + N) < - CTW ALL S DX l J 1 /OZL ( L ) 

000925 

000 

. F 


Ns=| -1 * 9o( J- A ) _ _ 

000926 

ODO 

F 


S ( 3?5+N)bG C3 954N ) +CT!VALL«DX t J)/DZ1*(L1 

000927 

OGO 

F 

120 

continue ... - „ : — 

000928 

000 

C 



000929 

000 

c 


..ADO CONDUCTION THROUGH' SPACER WALLS IPaRALLEU 

00093D 

000 

c 



000931 

000 

F 


CT*ALLrXK t 1 9 )»XX 1 151/1 2. ■*- 7 . 0 X K <1 .] 1 0 X X. < 1 n ! / 1 ? , 

. 000932 

000 

c 


vertical walls 

• -- 000933 

000 

c 


tVFRTYC4[ - -c ) _ - 

'* 0009 39 

000 

F 


Do' 190 M a D 1 3 . - . 

000935 

000 

F 


DO 1 90 1 e t 

000936 

000 

F 



000937 

000 

F 


G(Ht*N>=S(9l+NJ+CTWALL®DZ(LJ /DJf L1H.+3J I 

000938 

000 

F 

. 

-IF (H.LT.l > GO TO 190 

000939 

000 

F 


G { s 1 *N J = G 1 8 1 + N 1 +CT A ALL* DZJ L J /D YLi«*4 1 

000990 

000 

F 

190 

CONTINUE 

000991 

000 

C 


? ax 1 4! <» 7 ) 

000992 

000 

F 


DO 150 H a 0 1 9 

000993 

000 

F 


Dun* 1 . - - ' - 

000999 

oco 

F 


IF (HoEQ« 1 1 duhb.5 ‘ 

000995 

000 

F 


DO 150 L e I 1 9 

000996 

000 

F 


N»M*31«(L-U “ ... 

000997 

DOO 

F 


G(26l+Nl°6(26l+N)+CT«ALL»DY ( H* UyDZL 11_J 

000998 

000 

F 


IF 1M.LT. 11 GO TO 150 

DC0999 

... oao 

F 


G 1271 +N)»G (271 +N ) +DUH°CIW ALL'WJU-UJVJXZL-LlJ 

000950 

000 

F 

ISO 

CONTINUE 

00095 1. 

„000 

. C. 


.... .. HORIZONTAL ft Al_l . 

000952 

00a 

F 


DUH«.5 - . . • - • 

• ■ 000953 

_ 000 

F 


Do 160.L“1»S. 


000959 OOO F N = i_-1 *5 


- - /4 *»* * 
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*^.» 

" ’ 1 ’ " T 



- 


, \ 




000455 

000 


' 0004S6 

000 

( 

000457 

000 


0DQ4Sfi 

coo 


000459 

000 

1 

000460 

000 

.. 

000461 

000 

r 

000462 

000 

000463 

000 


000464 

000 

* 

000465 

000 

( 

000466 

. 000 


000467 

000 

( 

000468 

000 

00046 9 

000 


... 000470 

000 

(■ 

.. 000471 

000 

000472 

000 


• 000473 

ODD 

( 

...... 000474 

000 

000475 

000 


_ _000476 

. .000 


000477 

000 

■ ( 

0004 78 

.. 000 


000479 

000 


■ . 000480 

000 

(. 

000481 • 

000 • 


000482 

000 


000483 

000 

< 

000484 

000 


.- . 000485 

oco 


. . \_.eao486 

.000 

k . 

000487 

000 


■ - 000488 

000 

( 

0Q0489 

000 

. 000490 . 

.000 

- 

• 000491 

000 

C 

000492 

000 

000493 

000 


000494 

000 

( 

000495 

000 

000496 

000 


000497 

000 


000498 

000 

t 

- 000499 

000 


000500 

000 


000501 

000 

. \ . 

000507 

000... 

' 

000503 

000 


000504 

_ .. 000 .... 


• 000505 

000 


000506 .... 

000 .. 

CD 

000507 

ODO 

r- 

000508 . 

. .. 000 

CO 

0D0SG9 

000 

r- 

_ 000510 

000 

t— ~ 

CO 

OODgl 1 ' 

000 


F 
F 
F 
F 
. F 
F 
F 

f nc 

c 

c 

c 

c 

F 

F 

M I 62 

C 

F 

F 

F 

F " 

F 

M 

M - 
M I&3 
F 
H 
H 

. H 164 
M 
H 
H 
M 
C 
F 

"f 

F 

F 

F 

H 

F 

H 

.F 

F 

F 165 
H 

F 170 


S(|BJ*N)*6IIal+N>+CT»ALl.«0Z(LJ/DXL(31 

6 ( 2 O 6 + N) ®G t 236 + N )+CTlVALL»DZ ( L) /OXL ( 4 ) 

If tL*EC*5> go to uo 

N«3l • (L- 1 ) * l . _ 

G ( 26 3 + N ) = G t 263 + N ) + DUfi*CTAALL*OX [3 ) /02L 
G(z 68 +N) *g (26S+N ) + CT*ALL*DX (4 )/DZL(Ll 
G( 273+N) »6 (273+N ) +DUM *CT* ALL • Ox (5 )/DZL (L) 
CONTINUE 

CONDUCTORS TO BOUNDARY WALLS . ' 

(NEGLECTING CORNER-EDGE EFFECTS! 


CDLl^S«=xK(7)/XK(Z)«!2. ‘ 
Do 162 N»0»164 
G(lCCl+N)*G. 

_ .FRONT. ANGLE 
CTl=8.3c .C3/XK (2 ) 

CTlpCTL/8* 

DO 163 J*Ci4 

DU“* 1 . ' - . 

'IF <J.EQ*4) DUm=.5 
G{iG 0J+25«J) ,5 CTL»DX(J + 1 ) 
GtlC21+2SaJ)=CTL«DXfJ+l) 
0 ( 1001 +5 «J)=G( 1001+5* J) 
DO 1-64 J = Q 1 1 

G(i 136+l5+J}=CTL»DXIj+6) 
GI1156+5*J) “CTL*DX ( J+6 ) 
G(iiHl+5«J) *CTL*DT 1 J+3 ) 
6 M 1C! IsG <1101 ) ♦ CTL «DY 
G ( 1 1 06 > * CTL* (5® ( OX ( 5 ! 
G(1 161 )=G( 1161) ♦ CTL+DY 
G{ j 15] )=G ( 1 1S1 ) + CTL°DY 
LEFT-RIGHT 

DO 170 HoO,R„ ; -- 

DUm»1« 

.IF (M.EQ.l) DUH=>.5 
DO 170 L = 1 « 5 

N»&»M + l-1 .. 

G( 1CC-I+N )=G(10CI+N)+CDlI 
If (H.GT.I )- 60 TO 165 
G { 1 IOI+N!*G(! lCl+Nl+DUK* 

If (h.eo.d go to 170 

G< 1 161+N ) =G{ 1 1 61+N1+DUH* 

GO TO 17Q . 

N*5* t H-2 1 +L-1 

G(J IHI+nJbGU 1HI+N1+DUH* 

Continue 

Y0P-30TT0K 

DO 180 J n i *7 

.DUm 5 '! • - . - ' 

IF (J.EQ.5) DUHn.5 

00 180 L = 1 » 5 - . .. 

IF 1J.GJ.S! GO. TO 175 
HaL-1 +25* { J-l 1 
G(i021*N)j=G(1D21 + N}+COLI 
10C1+N>»G( 1001 +N1+CDL] 
IF (J.LT.5) GO TO ISO 


CONNECTING IN»ER/0UTeR_5he! 


+ DUM 


+ CTL»DY tJ+1 J_ 


( 1 ) 

♦DY(2) }.. 
I2)o«5 

15). 

SIDES 


NS«0Y(H+1 )oDZ(L) 
C0LIN5 °dy(M+1)«dZ{L1 


CDLINSoOYt2)oDZtLj 


CDLIN5»DYIMS.IJ0DZ-U-J_ 


SIDES— 


N5*DX ( J J oDZ t L ) 
NS+DXI JJ+DZILJ ®OUk 


s i *.V .1- .- ‘ '■ . _ 


"■ r: v . •* : 
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C 



000512 

000 

r 


n»l~i 


. 000513 

000 

H 


Gt j 106+N )cG (1 106+N > + 0UH®C0LI NS »DX t J ) ®DZ tl-J . 

c 

OC0514 

000 

r 


GO-.T0 180 . ' ’ . 


0CC515 

000 

F 

175 

Ke L -1 + 1 5« ( J-5 J . __ . . . 


00051 * 

000 

H 


G( ! I21+H >«£( 1 121+fc><- CDLINS»DX1J)°0ZtL) 

( 

0005 1 7 

000 

F 


N «= l “ 1 * 5® ( .1-6 ) 


CC0&18 ' 

' 000 

h 


GHl56*Nl*G{ll56*M)+CDLlN5eOX( JJsDZtLl - - 


000519 

000 

F 

1 so 

CQnTI NUF 

V 

000520 

000 

c 


front-back sides 


_ 000521 

000 

F 


00 190 J=»l »7 . . 


000522 

000 

F 


«L*0 

( 

000523 

000 

F 


.IF tJ.GT.5l _ . . 


000524 

ODD 

F 


DO 190 M«ML»4 

C 

000525 

000 

F 


DUkM • ... 

00052* 

000 

F 


IF (J.GT.9 .and. M.LT.2) DUN *. 5 


000527 

000 

F 


If (J.E0.5 .AND. M.EQ.l) DUM«,75 


000528 

000 

F 


IF t J»GT*5 1 GO TO 185 

c 

00052? 

000 

F 


N«=ssh + 25* ( J-t ) . . ; 


000530 

000 

H 


G ( lOC * *N ) tg 1 ! GC1 +N > +DOh«COL 1 NS»DX t J J »DY ( H+l ) 


000531 

000 

H 

• 

G< iC0S + N>e.G( 1CCS + N)+DUH»C DL INS. DX 1.11*0 Y IM-.1 5 

C 

D0DS32 

000 

F 


GO TO 190 


000533 

000 

F 

185 

IF (H.GT. 1 > GO TO S87 


00053*1 

000 

F 


N^5»tJ-6) 


OOO535 

coo 

H 



. G { 1 1S6 + N > = G t I 1 56 + N ) + CDL I NS 0 DX < J 1 oDY 1 2 ) sqUH 

■ 

000536 

000 

H 


G ( J I 6G + N J »G ( I 1 6C + N ) ♦ CDL I NS *0X { J ) « OY t 2 ) «oUH 


,-s 000537 

000 

F 


GO TO 190 * . _ 

C 

OC053S 

000 

F 

167 

N = S .tN-2)-»l5etJ-6) 


000539 

000 

H 


Gt 1 126 + N)eG! 1 126 + Nl+pUMeCDI INSehy f .1 1 * r» Y fH*I 1 


0005*10 

000 

H 


G(ll30 + N>*.6UI3 0- , ’N)+DUn.CDLINS«DXtJ)oDYtM->l) 

/ 

V. 

0005*1 1 

000 

F 

190 

CONTINUE ... .... ..... 

• „ * 

0005*12 

000 

C 


(CORNER EDGES! 

v 

. . 0005*13 

000 

c 


« 

C-. 

0005*1*1 

000 

F 


CTLl f *S = XKt7Is 2**tXK(10!+XK(3>-».5°XKt2»)/l2. /tl»20;oXK(2)/i2«) 

- 11 ■* ♦ 

000595 • 

000 

C 


HOR 1 ZON 7 A t - X 


000596 

000 

F 


CO 210 U B 0 .4 , 4 

( 

000597 

000 . 

M 


G( t 106-H )=G( 1106 + LIsCTLINSeDXISJont; 


000598 

000 

F 


00 210 J«t,7 


- 000599 

oco 

F 


DUm b 1 . ' ' 

/* 

\ 

‘ 000S5C 

000 

F 


IF ( J . EQ . 5 ) DUH = .5 


000551 

000 

F 


IF (J.GT.5) GO TO 205 . . • . 


000552 

000 

F 


N»25« t J-l 1+L 

( 

000553 

OOP 

M 


G l 1001 +N J =G1 ICQl+N) +DUNSCTL 1 NSsnx 1,11 


000559 

000 

H 


G( 1 02 1 + N I »=G ( 1C21+NJ+ CTLIN3«DXtJ] 


000555 

000 

F 


GO TO- 210 

V 

000556 

000 

F 

205 

N*}5M J-Sl+L . • ■ - 


000557 

000 

H 


G< 1 121+NlnGl I 121+N1+ CTL-I NS« DX 1 J 1 ..... ....... 


000558 

000 

F 


N»5« ( U-6 1 + L . - 

[ 

. 000559 

. coo.. 

H 


G ( 1 156 + N)«:GU156*-N)+CTLINS«DXUU 


••000560 

000 

F 

210 

continue 


' 000561 

ODO 

C 


AXIAL — 7 

t 

•wt ■ 000562 

000 

F 


DO 220 L*0 . 4 '■ ■ • •- 


000563 

000 

H 


Gt 1 ODl +1 laGl ion 1 *1. )* cti. jNS.pj +1 1 ... 


000569 

oco 

H 


G( i021.L)kG 11C21+L1« CTL 1 NS • DZ t [♦ I > 

c 

000565 

. 000 . 

. « 


G t I 1 01 +L ) *G 1 1 101 +L1 . . CTL4NSoD2(L*i l— 11— _ — 


. 000566 

000 

M 


Gt J161*U»Gt 1 161+L1+ CTL1NS»0Z tL+1) 


1000567 OOO H 220 G* j 1 S J ♦L J =G ( II 5 1 ♦*. ) .... ClLI U5»0Z { L^4 


. 0006*8 000 C -c. VERTICAL - V 




81.7874 
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( . 

000569 000 F DO 230 M«0,9 

000570 000 F DUn»l. . __ _____ ' 

C 000571 000 F IF.(H.EO.I) DUM« • 5 

C00572 000 F 00*230 L*C,9,q_ _ _.* 

OOOS'73 COO F NnE»H+L 

( _ ODOS79 COO H G{ |001*N)=G[ 1001+HI*CTLIHSeDYtM*l ) .J 

000575 OCO F IF (H.GT.ll GO TO 225 

000576 000 M Gii,10ieNl*fa(llCl + N)+DUn*CTLJNSeDY<M+l) - r~ . “ 

( 000577 000 F IF (H.LT « l 1 GO TO 230 

CCOb 7 g 000 H 6 <1 161 *L )=G ( 1 1 1 S+L )+DUn*CTLl H5»0 V 12) 

000579 000 . F Go TO 230 

( 000580 000 F 225 N = 5 * ( M-2 > ->L • • 

000581 000 H lilj 191+NUGC 11 *t 1 +N >*DU|i«CTL I MS *DY tM+U 

000582 000 F 230 CONTINUE - 

(. 0005B3 ,001 C ATTACH POINTS AT BACK ( INNcR-TO-OuTER iH£L%) 

000589 001 F P0lNTs7.8e.03/XK (21/12, , 

000585 000 M G { j 005 1 3 GUODS) ♦ POINT 

( 000586 .000 H 6(|025) * GU025) * POINT * .... 

000587 000 H G(lC80) =,611080) + POINT 

000588 000 H - G(i)OC] =,6(1100) ♦ POINT - _L 

<' C00589 COO H 6(1165) » 6U16S) * POINT . 

000590 000 M G t 1155) “.GU155) + POINT . __ _ . *_ 

000591 000 C * • 

( CC0S92 000 C ’ INPUT COOLANT FLO# CONDUCTORS . ... .. • -C 

000593 ,000 C 

000599 OGQ F IF UiCAS£«ECJ.2) GO TO 260 . . . 

L 000595 000 F Dl»H=XK t 2 I I » AK ( 22 I 

D00596 000 F IF (NCASE.GT.il DUM=>DUM/DUMsT .. 1 

000597 000 F DU-iST = XKI21 )®XK(22) 

' 000598 000 F Do 250 H = 0 i 68 _ * ._ „ . _. 

CC0S99 OCO H 250 G{?I39+N) = G121CI9 + N) « DUH 

£500600 000 F 260 CONTINUE . „ _ 

( 0D0601 000 C 

000602 GOO C COHPliTE NODaL THERMAL CAPACITaNCL. - -I 

000603 000 C 

> 000609 000 C FOOD ’ 

000605 000 C 

000606 000 F DO 920 0*1,7. : - . ; — 

1 000607 000 F Hl=0 * ‘ * 

000608 000 F IF (J.GT.5) HL= 1 . . - ’ . 

000609 000 F DO 923 H = HL » H 

< 0006 1 D 000 F DUM*I. ’ 

0006U 0O0 F IF (J.GT.9 .AND. M.LT.2) DUMtn.s 

000612 000 F IF (J.EQ.5 .AMD. H.EQ.l) DUHo.75. : 

000613 000 F DO 923 L = l,fa 

0C0619 000 F C*p = ;^ ( 20 ) *XK I I ? ) ♦ DX ( J ) « DY 1 1 > ®DZ t L ) *DuM 

000615 000 F ip (J.GT.b) GO TO 905 

000616 000 F + * L-l _ ' _J 

000617 000 F C(!+N)»CAP * 

. __ 000618 ' 000 F GO TO 920 .. ' ; n . 

( 000619 000 F 905 If (M.GT.l) 60 TO 910 


000620 

.000 . 

F 


N*| - 1 * Set J-6 > 





000621 

OOQ 

F 


C { 1 56*N ) =C AP 





000622 < 

.-000 

F 


GO TO 920 . 


— 



000623 

000 

F 

9 1 0 

N = 5 8 t M**2 ) ♦ 15eIJ-61 ♦ L“ 1 

m 


• 


C0062H 

000 

F 


C ( 1 26+N 1 “CAP . 

, _ __ 


....... 

. 

000625 

000 

F 

920 

CONTINUE 


. * 
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c 

( ' 

~ 

- . - 

- 

~ - 

C 

000626 

ODD 

c 

- 

c ' 

000627 

000 

c 

_ , 

000628 

000 

F 

1 


000629 

000 

F 

O 


000630 

000 

c 


c 

000631 

000 

F 

1 


000632 

000 

F 

1 

• 

000*33 

000 

F 


■ l * 

000639 

000 

F 



000635 

000 

F 

1 

c 

000636 

000 

F 

1 

000637 

000 

F 



09063 B 

000 

F 


C ' 

000639 

000 

F 


000690 

000 

F 



000691 

000 

F 


C ' 

000692 

000 

F 


000693 . 

000 

F 



000699 

000 

F 

930 


000695 

000 

F 


c - 

000696 • 

000 

F 

990 


000697 

000 

C 



800698 

000 

F 


c .... 

000699 

DOO 

F 

' 


00065D 

000 

F 


• 0 - 

000651 

000 

F 



000652 

000 

F 



000653 

000 

F 


t 

000659 

000 

F 


000655 

000 

F 



000656 

000 

F 



000657 

000 

F 



900658 

- 000 

F 



000659 

000 

F 


'V 

000660 

000 

F 



000661 

000 

F 

950 

U 5 -' - . 

000662 

000 

F 


. 

.000663 

000 

F 

- 

c.* 

000669 

000 

F 



060665 . 

000 

F 

9*0 

( _ 

000666 

000 

C 


000*67 

. 000 

F 



000*68 

000 

F 



000669 

.. 000 

F. 

- 


000670 ‘ 

000 

F 



000671 

000 

F 



000*72 

000 

F 


1 

000*73 

000 

F 



•000679 

000 

F 



000675 . 

000 

F 



000676 

000 

F 



.000677 

-000. 

F 



000*78 

000 

F 



000679 . ; 

. 000. 

F 



000680 

000 

F 

967 


000*81. . , 

. .000. 

F 


V 

000*82 . 

000 

F- 


J. 1* - 

* - 


' . _ 

- r<‘. 


OUTER rtAtLS/PACKING/INSULATlON 

RCPT K XK(6l*XKlbJoXKt3)/J2. + X K (-J 3 ) • X K ( 1 2 ) • X K ( 1 0 i J S 7 ' 

>XK<9)»XK<B).XK12)/12. ... 

■ILEFT-RIGHT SIDES) 

DO 990 . 

Dup= 1 o • ■ 

If CH.eq.IJ DUH=.5 — 

DO 990 L»1 ,5 

CAp = RCPT*OVIH*|)«DZ{LJ 

N»5»H «. L»l 

Ct t +N)»C(J+H)+CAP 1__ ' 

IF tM.GT.J) GO TO 9 30 

C<|Ql+Nl=CUOi+N)*CAP*DUM 2 

IF IM.LT.S) GO TO 990 

H*>i.-I 1 

C{|6l-»N)»CAP«DUH 

GO TO 990 .. ' ' : 

HbsHM. 2) + L-l • . 

c<ihi+m)*c(i*u+n)+cap°duh 1 : ^ 

COuT I HUE ' - ■ . •' 

. — - --..-V-ITOP-BOTToM sioes — 

DO 9*0 J* 1 9 7 . ‘ ■ • -• 

DyH“i. . . . ;■ ’■ ; 

IF (JeEO.S) DUH = *5 .. .... 

DO 960 L = 1»S ' 

CAPt=RCPT°DX I JJ.DZll.) 

IF (J.GT.5) GO TO 950 1... 

N*2S*tj-lI * L-I 

C(2i*m»ci2i*ni+cAp •_ 

C t 1 *N ) BCU*H) *CAP«DUH 

IF' IJoLT.S) GO TO 960 1 L 

N»U-I - ' • • . 

C UO6*N|a0( 106*N)*CAP«DUM !__J . 

GO TO *»60 ' . - 

5* ( J-5 ) <• L-l : 

Cll21‘N)<=C(Ul+Ml+CAP 

N»L-1 +.5*(J-6) :_1 ; 

C( j5*.»N)=Ct ! B6 + N )*CAP«OUH . 

Continue. 'J 1 v . . .. 

IFR0NT-8ACK sides) 

DO 9eo J»l, 

«L=0 

IFIJ.GT.5J ML a 1 ... 1_ ' : 

DO 980 H*HL»H ‘ .. - ...... > . 

t>U9*i. ... . ill : 1 

IF (J.GT.9 .AND. H.LT.2) DUh*.5 • 

IF U.Eft.5 .AND. H.EQ.aJ_DUM = xZ5 ^ 

CaP=RCFT*DX{J).DT(K*I ) 

IF (J.GT.S) GO TO 967.: 

U 050 N + 25®(J-J) ... . 

CU+N)*CU*K)®CAPttDUH ' . .. -1 - 

C IS*N)oC t 5 + NWCAP»DUH 1. 

GO TO 960 _ v l 111 •* 

IF IH.GT.l) GO’ TO 970 . - - \ : , .• 

.N»5« I J-6 ) ' ' ' 1 ' 

Cj (56 + N)“C( I56®N) ♦ C Ap »DUM 


817872 
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( 


'( 




C 

c 

( 

( 

( 

c 

V 

(' 


t 

r 


V 




c 


y 

( 


000683 

000 

. 00068*1 

000 

000685 

000. 

000686 

000 

OD068? 

000 

000668 

COO 

000689 

000 

0D0690 

000 

00069 t 

000 

000692 

000 

000693 

000 

00069*1 

000 

00069S 

000 

CO0696 

000 

000697 

000 

Q0069B 

000 

000699 

000 

00070D 

000 

000701 

000 

000702 

000 

000703 

• coo 

00070*1 

000 

000705 

000 

000706 

000 

000707 

000 

00070B 

000 

000709 

ODD 

000710 

000 

000711 

000 

000712 

000 

0007 13 

000 

_ 00071*1 

000 

000715 

000 

. 0007 1 6 

000 

DO 0 717 

oco 

0007 1 8 

ODD 

000719 

000 

000720 

000 

000721 

oco 

□00722 

coo 

000723 

000 

00072.9 

000 

000725 ‘ 

000 

000726 

000 

000727 

oco 

•000728 

coo 

000729 

coo 

000730. 

coo 

000731 • 

000 

. . 000732 

000 

000733 

OOQ 

00073H 

.000 

000735 ' ' 

000 

000736 " 

< ._ ODD. 

000737 

000 

00073s 

000 

00073? 

000 


F C [ 16C + N) O CU60*N> ♦ CAF>*0UH 

F GO TO 980 ‘ 

F *)7o N E 5«tH-2l + IS* ( J-6 ) 

F C { 1 26'*N ) =C U 2A*tl ) f CAP*0UH 

F C ( j 3C + tl)«C I 1 30*NJ +CAP«DUH 

F 9&C CONTINUE 

C SPACER WALLS/PACK IMG 

C : 

F RCPT s XK( 17)*XK(]6)*XK(I5)/]2* + 2 . « XK ( I 3 > o X K l I Z ) «XK , 1 0 ) / 1 2 • 

C tVERTICALJ . _ .... 

F Do 500 MsOi 4 * 

F t>un«l. : _ . _ 

F IF <M.EQ.1> OUM-.S 

F 00 SOO U = 1 tS ....... _ _ . . _ 

F Nb5«H * L- 1 

F C 15 if N )=C (SI +N ) +RCPT«D y (H* l )oDZ ILl ' 

F IF tM.i_T.il GO TO 500 

F C t I C 1 ♦N)*C (I D1*N) +RCPT«DY IR + l >®DZtLl°DUH 

F 5Do Continue 

c , (HORIZONTAL) . - _ . . 

F Do 510 J“3 »5 

F D u m n • 5 _ ... , 

F . If _l J.E0.9) DUHols 

f ‘do'sio l s 1 1 5 _ . - ; ; „ 

F N= 2 5*(J-3J + L- 1 +5 

F 510 C( 6 1+N)=C(61+N)+RCPT«0X(J)»DZ(L]»DuH . ... . - . _ 

C CORNER-EDGES - PACKING/HALL/INSULATION 

c - 

F RCPA=tXK113J»XKU2J«XKUCJoxiCl!0> + XK t 6 > » XK t S ) « XK ( 3 ) o t 2 * * X* t 1 0 > + 
F Xk 1 3 I ) ♦ XK(9)aXK<ej*(tXKt2)+XK(l0n»*2-XKIIOl»«2J J 719*1. 

C tHORIZONTAL - X) 

F DO 520 J»1.7 ... _. . 

F Dumb 1 , 

F IF tJ.EQ.S) DUHa .5 „. ! 

F DO 520 L*>0 i 4 , 9 

F IF t J « GT o 5 I GO TO 515 - 

F Na 2 5o ( J- 1 ) + L 

F Cl2l+N)=Cl2l + N)+RCPA«DxtJ) 

F C(jvN) *C U *N J+RCPA*DX tJ } *DuH • 

F IF tJ.LT.5I GO TO 52G 

F C l iOA*U"C t 1C6+L) +RCPA«DX f J)«DUH 

F 60 TO 520 . 

F 5 15 Nbj5®U-5) ♦ L " • 

F C 1 12 l + N) = C t 1 21 *N > +RCPAODX ( J J _ 

F NegACJ-a) ♦ 1 _ 

F C(156+N)=C( Ib6 + H)+RCPAeDXlJ) . . ‘ 

F 52o continue 

c : . . IVERTKal - TJ ; 

F DO 5M0 H”0«R 

F DUhbI. 

F IF tH.EO.lJ DUKO.S 

F_ Do £90 L=0 j9,9 - 

F Nb5*H « L ' . 

F Ctl+J<)“Ctl'*’N) + RCPA*DTt H*4J - I 

F IF (H.GT.t) GO TO S30 

F Cn01*NJ»CtIO!*NI*RCPA,DTtH+n »OuH ~ I 

F If (M.LT.n GO to 590 
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000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 
000748 
C00749 
C007SC 
000751 
000732 
0007S3 
000754 
000755 
000756 
000757 
000758 
000759 
000760 
000761 
000762 
000763 ‘ 
000764 
000765 
000766 
CDG767 
000768 
. 000769 
000770 
0007 71 
000772 
000773 
000774 
.. 000775 
000776 
000777 
000778 
000779 
0D0760 
000781 
000782 
000783 
000784' 
000785- 
000786 
000707. 
000788 
000789 . 
000790 
.000791 
000792 
000793,. 
000794 
000795 .. 
000796 




000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

Coo 

000 

000 

000 

000 

000 


000 

000 

.000. 

000 

.000 

coo 

. 000 . 


53c 


540 


Ct 1 6 I ■*!. 1 °C 1 t6!*L>*RCPA«>DY12) *OUH 

Go TO 540 

No b «t«-2) + L 

C< l*tl6H*)*c< l 4 l+N) +RCPA*DY t «♦! IrouH . 

Continue 

UXUL - 2) 


DO 550 L®0 i 4 

CAp=RCPA*DZlL*I 1 

C( )®L}=C( 1*L)*CAP 

C(2l+L)*C(21*L)+CAP . 

C( i 0 l +L ) *C l 1 0 1 *L ) ♦C A P 

CCl6l4U=C(l6ULl*CAP . 

550 C I j5 1+L ) = C t 1 5 1 *L> ’CAP 

C( 104) = Cl 104) « .a/XK ( 19) 

Ctlfcll* CU61 1 »1 .66/XK 119) 

C ( |42)* C ( 1 62) » 1 .66/XX 119 I 
. C ( ) 64 ) o Ctl64)*i#66/XK(19) 

I-F INCASE. ECi.f) CALL PCTDHP 


000 

C 


000 

F 

K 11 ) E 0 

000 

F 

X t 23 ) =9 

OOC 

H 

. T i 200) °“1Q« 

ooo 

F 

NPTS=0 

OOC 

F 

. Tp U 0Ts.02 

000 

F 

call cimdsl 

000 

F 

L0CPCT=0 

000 

F 

K 1 ! >»NCASE 

coo 

F 

TIKEObO, . 

000 - 

F 

T1RENd«=16. 

ooo 

F 

CUTFUT«3.5 .... 

000 

F 

XK5=.33 

OOO 

F 

QLaT“3C9.6 

ooo 

F 

NS A HP k — 7 9 

000 

F 

. ...DpeNn-1 . 

ooo 

F 

Call cnfrdl 

ooo . 

F 

.. X< 1241*99999 

ooo ’ 

F 

XK (25) *99999 

ooo 

F 

999 CONTINUE 

ooo 

F 

call gprint 

ooo 


end . ... 

ooo 


BCD 3 V AR 1 AB 

ooo 

F 

COMMON /FREZi 

ooo 

F 

* » NSAMp ,0L AT i 

ooo 

F 

DATA NPR.NLI 

ooo 

F 

n=loopct/npr 

ooo 

F 

IF ( N • NPR ,N 

ooo 

F 

nline*nline* 


F IF C** c ’ASE.UT.2.) TO 15 


.. 1 r INLINE. LT.23). 60 T0__9Q 

NLINEbO . - 

J.RlTE {6,eCCJ..__ ' : 

800 Format ( / * ■ L TIME 

* ... CHAU. . T1H/XJ TCOUT- 

*90) 8REM* / 1 

40 continue l__ 


DRLXCC DTMPCf 

__T 1-364 T 1-881 TlW- 


RCOOl 




817810 


000797 

000796 

000799 

eooeoo 

OOObOl 

000602 

000603 

000809 

000805 

oooaO * 

000807 

000 6 0 B 

000609 
000810 
0008 i 1 
000812 
000813 
000819 
00081b 
00081 6 
000817 
0008 1 6 
000619 
000820 
000821 
000822 
000823 
000829 
000825 
000826 
000827 
000828 
000829 
000830 
000631 
000632 
000633 . 

000839 

000635 

000836 

000837 

000838 

000839 

000890 

000891 

000892 

000893 

000899 

000895 

000896 

000897 

00089 8 

000899 

000850 . 

000851 

000852 

000853 
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000 F 
000 F 
000 M 
000 F 
000 H 
000 F 
000 H 
000 H 
COO F 

coo n 
ooo n 

GOO F 
000 M 
000 M 
000 M 
000 F 
000 F 
000 F 
OOG 
000 

000 F 
000 F 
000 F 
COO F 
COO F 
ODD F 
000 K 
COO F 
COO F 
000 C 
COO C 

000 c 
000 F 
000 F 
OCO F 
000 F 
000 F 
DCO ' F 
000 F 
OCO F 
000 F 
000 F 
000 F 
000 F 
COO F 
000 F 
000 F 
000 F 
000 F> 
000 . F 
000 F 
000 F 
OOO F 
• 000 _ _.F 
ODO F 
OCG F 
- 001 F 


OWAU-oO. 

DO 55 N * Q * 9 9 _ 

55 QWaLLoQaALL ♦ GUOOI+N) o (T (5QD)“T t 1+H ) 1 
DO 60"L = 0,99 

*0 G f. 4 L L = tin ALL <■ 6(1111*11 • ( 7 ( SCO ) ~T {11 1 +L 1 1 


Do 65 L* 0,9 


GftALL 
65 OwaLL 
CO 68 
Ll'aLL 
Qy-aLL 
Do 70 
QWaLL 
OhaLL 
KR[TE 


68 


70 


S 06 ALL 
= GW ALL 
L=G , 9,9 
c Gfv> ALL 
* 01 -ALL 
L = 1 .3 
c OAALL 
c Q \'i ALL 
16. 1GC1 


GinGUL) 
G ( 1 ! 6 I +L ) 

6 ( 5 1 C 6 ■* L ) 
Gl 1 156 + L) 


(T(502)-T(lDl+L) > 
IT15021-TU61+U ) 

IT ( 502 )-T( 1 C -6 + L 1 1 
IT ! 5 C 2 )-T( 156 + U ) 


Gill C 56 + L ) * IT (501 )-T( 1 C 6 *U ) 

G { 1 1 58 + L ) » IT 15 C 1 1 -T 1 1 S 6 + L ) 1 *_ 

L OOP C T ,T IHEo,CRLXCC,CTKPCC.OCOO l .,QNAu;‘.Tt 200 >'Ttl 09 l 

«, T ( 36 > ,T( 68 ) ,T ( 89 ) ,Tl 90 ) ,QREM . . _ _ 

IDO FORMAT ( IX. 19 , F 9 . 9 » 2 tlX,GI 2 .S), 9 Fl( 3 * 3 l 

99.9 COAT! HUE . . 


EDO 

- BCD 3 VARI ABLE 5 2 • 

C 0 “HO(J /FREZR/ DX 171 ,DT <51 ,D 7 (51 , DXL { 6 ) , D TL « 9 ) , Djl ( 9 ) e OCOOt 
«.NSA.PP,CLAT,XKS,OPER 


COhMO*, /UPLOTX/ NPTS .TPLOT ,X2 (30C) .T21300) iy3(300) ,Y9(3 oOj ,y5130G! 

•, Y613CC1 ,Y7t3{?5) , 

H'EfJSlO'l TITLX112) .T1TLYU2) 

LOf-PCT = L0OPtT + l •. : ’ 

0 C C C L = 6 ( 2 1 G 9 1 » < T 1 1 C9 ) -T ( 202 1 } 

IF tKin.EG.OI GO TO 300 . . 

LPlOT*-8 


HOT MEDICAL SAMPLE 1 NSERTI GM 

IF (TIHEO .LT. XKt29>) Go TO Bo 

DATA Ml,NxP,NXL,NTP l NYL,MZP,f»ZL/. 

* 89,209,189,79,69,341,330/ 

Data tfk/ 3c./ _* 

If (HSAhP.GT.O) GO TO 60 

NS»MP = 99 _ 

6XP*G(NXP) 

GX(. «K ( NXL 1 

GYP=G{NYP) 

Gyl^GIHYL) 1 

GZP=G(HZP) 

GZL^etNZL) 

T(f.H)n80. 

50 CO, K 1*2. IS . 

55 C0*-T!RUE 

DUh d 2 . / ( 1 . +XK ( ] 6 ) /XK5 ) _ 

:T--. 6<aXP1=GXP»DUM 

’\6tnXL)oGXL«DuH . 

6 { HYP ) »GYP»DUM 

6 tNYL >=gtl»duh ~ 

Gtfj2Pl«>GZP®0UM 

GtNZL)BGZL*OUH ; 1 

GO.ZPlo.8S33 

IF (M5AhP.LT. ISC) 6(NZp)a.^2 

DUk = 6 .0 
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OOOeSN 
000855 
ODDS 5 6 
C00 a 57 
000658 

oooes? 

ocoaso 

DO 0 S6 I 
000862 
CDOf.63 
000869 
000865 
000866 
000867 
000868 
000 £6 9 
000670 
000871 

.000872 
000873 
D00679 
000675 
000876 
000877 
00087 8 
000879 
000880 
000881 
000882 
000883 
0008B9 
000885 
D 00886 
000887 
000&86 
000889 
000690 

. C0069 1 
000892 
000893 
000899 
CQ0895 
000896 
000897 
000898 
000899 
000900 
000901 

' 000902 
000903 
OOOvOS 
000905 

000906 

' OOO 9 O 7 
000908 ‘ 
000909 

00091 0 


001 

000 

000 

000 

00c 

000 

COG 

DOG 

000 

000 

ODD 

000 

000 

000 

000 

000 

00-3 

COO 

000 

ODO 

GOO 

000 

CCO 

‘000 

000 

coo 

Ct?0 

CCO 

CCO 

000 

000 

DOO 

000 

000 

000 

000 

000 

000 

000 

000 

000 

000 

COO 

000 

OCO 

coo 

000 

Ooo 

000 

000 

000 

OQO 

OGO 

000 

000 

ooo 

000 


F 0 Uf 2 «=outi*.C 5 

F G(K-XP) = GUJXP) * DUH 2 . 

F 6 (i,XL> ° G(NXL> a DUh 2 

F G(-\YP) a G(NYP) a DUM 2 . _ . _ 

F 6 {f.YL) a GtNYL) • GUM 2 

F G( V ZP) = G(NZP) * DUH .. . 1 

F GlKZL) a G t K Z L 1 o UUM 2 ' 

F LPtOT = e ... . _ j; ......... . 

f 60 continue. ’ . 

F IF t T c FIM ) ,GT. TFP ) GO Tc 80 ... ... . 

F IF UISAKP.GT. 15 D 1 GO TO 70 . ' 

F N 5 fHPs= 3 L 3 

F XK S =l.?f 

F C (f..M 1 = 2 . 1 5 ® .73 

F Go TO 55 

F 70 COnTIkUL ... . 

F QOl*T = C (»!') B { TF R ”T t NH 1 ) 

F QLAT = OLAT-t,OUT . . 

F T <i:H J=TFP 

F IF (OLAT.'GT. 0 .) 60 TO 80 .' .....I 

F " C ( Nf! ) = 2 » IS® * 96 

F T (f.M > =TFR*GLAT/C U-M! 

F L Pl OT = b 

F -Xk< 291 *V?? 99 . .. 

F 80 COnT 1 KUF ‘ - 

C - . . 

C INCLUDE DOOR OPENING EFFECT 

C .1 

F IF ITIMEO • LT o . XK ( 76 ) ) GO TO 10 D 

M CALL STPlASt TIKE 0 -J.K 1251 , A( 3 ), DUM) _ 

F DUm 2 »= 0 UH® 0 PEN “* ®" 

F OPFl: = OUf! . . nr _ 

F IF (AdSIDUH) ,gT. 50 .) XK 1 25 1 *99 999 * 

F IF (DUM 2 .GT. c.) GO to IDO . 

F GDoOR=,C 7 S«. 5 « C. 29 » 90 . ♦ . 011 . 1220 .)* 

F DU-idpOOR/ I C ( 6 1 Hill)* C t 1 6 ) +C 131 ) ®C< 36 ) ♦Cl 1 ’!!,' 

F Do 90 fl = 6 «) 6,5 

F T(n 1 » TIM) *DUM 

F 90 TIk+ 25 ) =T<N* 25 ) *DUH 

F LPlOT = 8 

f 100 continue 

C C 00 L 1 N 6 UNIT. ThERmOSTaT CONTROL 

F data ‘TON, TOFF, cr.ATTS,PWATT 5 / - 7 .* “ 10 . 5 , 75 .,' 5 ./ 

F TC».TRL=*T 11 C 9 > _ 

F IF (M 231 .LT. C .AND. TCNTRL.LT, TON) GO To 2 lo 

F IF (M 23 J.GT.C .AND. TCM Rl_ . GT.T OFF ) 60 .To 220 

F LPlOT *8 

F IF UI 23 ! .LT. 0 ) Go To 220 

■M 210 T [ 200 ) sT ( I 09 ) 4 - PKATTS® 3 . 912 / 6 ( 2109 ) 

F M 23 ) °”9 

F Go TO 290 

M 220 T ( 200 ) “T ( 1 09 1 - .(CftATTS-P.BfATTS J» 3 ® 9 . 1 . 2 /G(.£l.a 9 J 

F K( 23)»9 

F 290 CONTINUE I 

C 



C-21 



81.7868 


D2-1X8569 


0009 1 1 

000 

000912 

000 

00091 3 

OOO 

000919 

000 

000915 

000 

000914 

000 

0009)7 

000 

000918 

coo 

000919 

000 

000920 

000 

00092! 

ooo 

000922 

OOC 

000923 

zzz 

000929 . 

r > r 

000925 

ooo 

000926 

OOO 

000927 

ooo 

000928 

ooo 

000929 

ooo 

00093? 

op? 

000931 

GOO 

000932 

0C3 

000933 

ooo 

000939 

000 

000935 

Ooo 

- 000936 

ooo 

BQ0937 

ooo 

C0093S 

ooo 

000939 

ooo 

0OO99D 

ooo 

000941 

000 

000942 

ooo 

O009H3 

ooo 

000949 

ooo 

000995 

ooo 

000996 

ooo 

000997 

ooo 

000998 

ooo 

000999 

000 

000950 

Ooo 

000951 

ooo 

000952 

ooo 

000953 

000 

000954 

coo 

000955 

oca 

- 000956 

ooo 

000957 

OOD 

000958 

ooo 

000959 

ooo 

_ 000940 

boo 

00096 J 

ooo 

000962 

OOO ■ 

CD0963 

000 

..000969; 

jl ..ooo 

000965 

ooo 

000966 

oao 

000967 

ooo 


‘TtH 


c 

r 

STORE 

plot data and hake plots 

L 

F 

Data titlx/ ?zh 

Tl »«e HOURS 

F 


/ _. 

F 

DATA TJTLY/ 72H 

temperatures 

F 

e 

. . / 

F 

If tLPLOT.LT. 01 60 

To 310 

F 

X2 (NPTS+l )=TJHE0 

^ ... ^ „ . 

F 

TPlOT=*tiMCO*.d3 


F 

GU TO 311 

. ' .. _ _ 


F 307 IF ILOOPCfLT.S) GO TO 999 

F 308 IF (NPT5-GE.2) GO TO 999 .. 

F T 2 l l I =** 2 « 

F *Zl 2 )= 0 . , . ' •— ■ 

F GO TO 312 

F 3In IF tTIIIEM.LT.TPLOT) <;0 TO 390 — 

F X2 (NPTS+I )=TJHE0 

F Tpi.OT = TPLOT+ . ! • . . -- 

F 3 1 1 IF {TPlOT.GT^TIHEND-.OOI 1 TPUOT^TIHENO-.OOl 

F 3 1 2. f<PTS = NPTS+i * . . ; . . — 

F . ThaX=T(36) 

F THJN = T ( 10 9) . 

F DO ,320 N =1 , 165 

F IF l T «LT • T*‘ 1 4 ) TrilNny ‘ - • 

F 32o IF ff»STi T/'AX .AND. N.NE.NH) T*IAX“t . ’ — 

F Y2 (NPTS >=TI1AX*30. 

F Y3(NPT5)«TM!Nf30* - 

F Y9tNPT5>=*T H 09 ) 

H Y S M»P T 5 ) H T 12 00 ) . . _ 

F Y 6 (HPTS)=TtNM| 

F Y 7 ( nPTS 3 svCOOL/3.912 ~ 

F IF IKCll.EQ.CI GO TO 308 

F IF tTlHEN.LT.TlHEi4D-.0Qli .*140, NPTS.LT*2?9) GO TO ^90 — 

F • TPlOT=99?99. 

F KRJTE 1 6,3251 . „ _ . . - - - -= 

F 325 Format MHl, 'PLOTS CREATED'// 6 X,'X', 1 DX * • T2 ♦ , . 1 OX t * V3 c c 
F -» nx,«Y9*, 10X,*Y5«, 10X,*Y6*, tOX,»Y7<//) 

F WR]TE 1 6 ,327) ( X2 t N 1 , YZ t N 1 , Y3 I N 1 , Y9 ( tt 1 , YS t m 1 > T 6 t N ) , Y7 <N 5 ,N«i "NPTS ) 

F 327 FORMAT UX» F10.**. 6FM.9) 

F CALL QUIKHLt-l ,-2. ,TI«E0,-2D. , 90* , IH , T 1 TlX , T 1 T{. Y , NPTS , X 2 , Y2 1 

F CALL QUIKMLt 0 ,-2. ,TlH£0,-2a. , 40*, IH , T 1 TL* , T I Tl Y , HPT 5 , XZ. t Y3 ) _ 

F CALL OUIKrtLt 0,-2, ,TlHEO,~20. r 40», IH , T l T l* , T I Tl Y , NPT S , *2 , Y9 ) 

F Call OUIKHLI 0,-2, ,TlM£0,-20, , HO., IH ,TiTlX,TSTlY,NPTS,X2,Y5) . 

F CALL QUtKMLt-l, “2 • , T J MEO , -20 » » 100..1H , T I TLX , T I T LY ,NPTS , , If , } 

F CALL QuIKriLt 0, -2. iTl MEO ,- 20 . , . 100. ) IH , T t TL X , T I T LY , h P T S , X ? . Y7 1 _ 

F IF < K 1 1 l.EQ.ll REWIND 2 

>F write TAPE 2 ,NpTS ", 

F *R}T£ TAPE 2,lx2l(4F,R“l »H?TSJ 

F WRITE TAPE 2,tT2lN) ,N»1 ,NPTS 1 — — 

r' WRiTE TAPE 2, (Y3(N) ,N 3 l , NPT5 1 

F WRiTE TAPE 2, tY9 (N) ,N*J .NPTSJ 

F WRjTE TAPE 2,<YStN) ,H pI,NPTS1 

. F .„._.HRjT£ TAPE 2,tY6tl4l,R»J,NPiSJ ; - 

F WRITE TAPE 2 Y7 ( N 1 ,N* 1 > NPTS ) / . • 

F .390 CONTINUE . ...... _u... — ’ 

F 999 < WlNUE ^ ‘ . . ' ’ 


original Rage is 
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D2-1185S9 


000968 

000 



END 

000969 

000 



9cu 3 qutput calls ‘ . „ __ . . ._ 

000970 

000 

F 


COMMON / F R E ZR / l)Al7» ,0Yl5) ,DZ(5) » D*L ( 6 ) , D Y L l 8 ) » DZ L ( H ) „ Q COO L 

000971 

000 

F 

a 

> »NSAHP .SLAT , X*S .OPEN . .... . .... 

000972 

000 

F 


R 1 T E (6,10) 

000973 

000 

F 

13 

format Uhij i . 

000974 

000 

F 


call STNDRD 

000975 

QOG 

F 


CTaT=0. .... __ _ - l... 

000976 

003 

F 


T A v6»3 ■ * -- 

000977 

ooo 

F 


TMa*=T(36) . .. ... 

000978 

000 

F 


Tli ] IJ=T ( 1 09 1 

000979 

000 

F 


DO 1 3 «=1 , 165 . . . . _ 

000980 

000 

F 


Y=T(N> 

000981 

000 

F 


IF IY.GT.TMAX) TMAX“Y 

000982 

ooo 

F 


IF (T.LT.TMIN) TMI«=Y 

000983 

000 

F 


CTqT=CTOT+C(N) . .... ....... 

000989 

ooo 

F 

13 

T A VG = T A VS + C ( H 1 »Y 

000985 

ooo 

F 


TAVG x TAVS/CTOT . . ... _ ... ... 

D00986 

ooo 

F 


WRITE (6,15) -THIN, TMAXjTAVG 

D0D987 

ooo 

F 

15 

■FORMAT (// 2UX> C TMIN=**,F8.3,8X, .' TMAX*» , f 3 . 3 , ax , * T A VGs « e F c . 3 ) 

D0098B 

ooo 

F 


00 HO L x 0 , H 

000989 

QQO 

F 


DU:: = OZL( 1 ) • !2, 

000990 

ooo 

F 


0UM2°DZL 1 2 1 ° l 2 * + DUH 

C00991 

ooo 

F 


IF (L.Eu. 0) ’VRiTE (6, HI) \ 

000992 

003 

F 


IF (L.EO. 1) -iR 1 TC ( 6 * H 2 ) OUM 

000993 

030 

F 


IF (L »£■,* • 2)' VJRlTt t o , H 3 ) DUM2 . .... * 

OC 09 9 4 

030 

r 


DU’“02l 1 3)*12. + OUM2 

000995 

030 

F 


00 I2 = 0U'1 + DZL ( 8 ) « I 2 • 

000996 

ooo 

F 


IF 1L.E0.3I lYRITE 16,84) DUM , . , 

000997 

003 

F 


IF IL.EQ.Hi WRITE <o,H5) 0UH2 - . - „ 

OC099R 

003 

F 


H*n 

000999 

009 

F 

20 

»^2*21 + L*"H . ... __ . 

001000 

ooo 

F 


>43=N2+ian 

001001 

ooo 

F 



001002 

ooo 

F 


N5=I51+L-M 

001003 

ooo 

F 


IF tM,GT.l2) 0 9 = 156 + 1. .. - -. 

001008 

ooo 

F 


IF (M.GT.12) N b = 1 6 1 ♦ L 

001005 

ooo 

F 


•‘‘RITE 16,25) 1TCK) ,H = M2,N3i2S) ,. TtNH) , TCn51 .. . 

001006 

ooo 

F 

2b 

Format ( iox , bmo + h) 

001007 

ooo 

F 


Ha 1*5 

001008 

ooo 

F 


IF IM.LT. 17) GO TO 20 

001009 

ooo 

F 


N2*I+L . •* _ 

001010 

OOO 

F 


H3bM2+ 1 00 ■ - - ' 

00101 1 

OOO 

F 


>YRtTL (6.25) (T(M) ,.NbN2,H3|'251 

001012 

ooo 

F 

80 

continue 

D0I0I3 

ooo 

F 

HI 

Format ( //23X . ‘front aall»/i 

001018 

ooo 

F 

S2 

F OpHAT ( //23X , ‘ SECOND SLICE (•, F6.3, ♦ INCHES BACK, • / 1 

001015 

ooo 

F 

H3 

FORM AT ( //28X i ‘THIRD SLICE. Pi f6,3». • INCHES SACK)*/) . _ 

001016 

ooo 

F 

8H 

F0RHATI//28X, ‘FOURTH SLICE («, F6.3, * INCHES SACK!*/) 

001017 

ooo 

F 

MS 

F OrMAT t //28X , ‘BACK WALL .1 L*_F6^>3*. ’.INCHES BACK1 !y ) 

001018 

ooo 

F 


WRITE (6,10) 

001019 

ooo 



end ‘ 

001020 

DOD 

- - i 



BCD 3EHD OF DATA ... 


End elt<, 
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